[问题]： 如何不使用内建程式计算出median和trimmed mean
[问题类型]:
程式咨询(我想用R 做某件事情，但是我不知道要怎么用R 写出来)
[软件熟悉度]:
新手(没写过程式，R 是我的第一次)
[问题叙述]:
最近刚开始学习R，想要练习看看可不可以自己建立function来计算
一些简单的数值，例如mean等等。
my.mean = function(x){
sum(x)/length(x)
}
这是我刚刚写出来的可以计算mean的function。但我想要如法炮制写出可以计算median
和trimmed mean的function就卡关了。

中位数就是先用sort()或order()排序后取中间的值，并注意奇数和偶数用if()分开处理。trimmed mean要先知道你希望怎么砍头砍尾才能说下去。支持你从基本功开始练习起。加油。

function(s,per){s<-sort(s) ;x <- ceiling(length(s)*(100-per)/100)y <- ceiling(length(s)*per/100)return(s[x:y])}要 ceiling, trunc, 还是 round 就看你自己决定