[問題] 如何計算median和trimmed mean

[Zakaria (From Wealth to Power)]

[問題]： 如何不使用內建程式計算出median和trimmed mean


[問題類型]:
程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來)

[軟體熟悉度]:
新手(沒寫過程式，R 是我的第一次)

[問題敘述]:
最近剛開始學習R，想要練習看看可不可以自己建立function來計算
一些簡單的數值，例如mean等等。

my.mean = function(x){
  sum(x)/length(x)
}

這是我剛剛寫出來的可以計算mean的function。但我想要如法炮製寫出可以計算median
和trimmed mean的function就卡關了。




--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 24.205.10.29
※ 文章網址: http://www.ptt.cc/bbs/R_Language/M.1412751365.A.9B0.html
※ 編輯: Zakaria (24.205.10.29), 10/08/2014 14:59:13
→ andrew43: 中位數就是先用sort()或order()排序後取中間的值，並注
→ andrew43: 意奇數和偶數用if()分開處理。
→ andrew43: trimmed mean要先知道你希望怎麼砍頭砍尾才能說下去。
→ andrew43: 支持你從基本功開始練習起。加油。
→ gsuper: function(s,per){s<-sort(s) ;
→ gsuper: x <- ceiling(length(s)*(100-per)/100)
→ gsuper: y <- ceiling(length(s)*per/100)
→ gsuper: return(s[x:y])}
→ gsuper: 要 ceiling, trunc, 還是 round 就看你自己決定