[問題]： 如何不使用內建程式計算出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 就看你自己決定