全部版块 我的主页
› 论坛 › 数据科学与人工智能 › 数据分析与数据科学 › R语言论坛
请教如何计算带权重的偏度和分位数（weighted skewness和weighted quartiles）
winniewang2222
5531 4
2014-04-15
请问在带权重的收入分布中，如何计算带权重的偏度和分位数（weighted skewness和weighted quartiles）？

例如，y=4,5,8,3,...,7 (N 个观测值)，权重w=(1,1,3,4,...3)

带权重的平均数是weighted.mean，但是带权重的偏度和分位数（如25%）要怎么得到呢？

非常感谢！

二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

全部回复
winniewang2222
2014-4-15 10:28:07
找到了带权重的分位数的计算方式

wquantile <- function( v, w, p )
  {
    v <- v[order(v)]
    w <- w[order(v)]
    v [ which.max( cumsum(w) / sum(w) >= p ) ]
  }
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

winniewang2222
2014-4-15 11:53:04
琢磨是这样的，不知道对不对

偏度的公式是：sk=sum((yi-mean(y))^3)/((N-1)*(s^3))   其中s是标准差

则在R中
sk=sum(w*(y-weighted.mean(y,w))^3)/((smw[N]-1)*(s^3))

应该是这样的吧，请指点...
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

yiyoujian
2015-11-1 17:27:20
嗯...这个在《商务与经济统计》中应该学到过的。
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

newzzl
2018-1-6 23:17:46
summarize var  [weight=权重变量]  , detail
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

相关推荐
栏目导航
热门文章
推荐文章

说点什么

分享

微信QQ空间QQ微博
扫码加好友，拉您进群
各岗位、行业、专业交流群