作者Zakaria (From Wealth to Power)
看板R_Language
标题[问题] 如何计算median和trimmed mean
时间Wed Oct 8 14:56:02 2014
[问题]： 如何不使用内建程式计算出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://webptt.com/cn.aspx?n=bbs/R_Language/M.1412751365.A.9B0.html
※ 编辑: Zakaria (24.205.10.29), 10/08/2014 14:59:13
1F：→ andrew43: 中位数就是先用sort()或order()排序後取中间的值，并注 10/08 15:07
2F：→ andrew43: 意奇数和偶数用if()分开处理。 10/08 15:08
3F：→ andrew43: trimmed mean要先知道你希望怎麽砍头砍尾才能说下去。 10/08 15:09
4F：→ andrew43: 支持你从基本功开始练习起。加油。 10/08 15:09
5F：→ gsuper: function(s,per){s<-sort(s) ; 10/09 13:14
6F：→ gsuper: x <- ceiling(length(s)*(100-per)/100) 10/09 13:20
7F：→ gsuper: y <- ceiling(length(s)*per/100) 10/09 13:20
8F：→ gsuper: return(s[x:y])} 10/09 13:20
9F：→ gsuper: 要 ceiling, trunc, 还是 round 就看你自己决定 10/09 13:20