请教如何计算带权重的偏度和分位数（weighted skewness和weighted quartiles） - 经管之家

› 论坛 › 数据科学与人工智能 › 数据分析与数据科学 › R语言论坛

请教如何计算带权重的偏度和分位数（weighted skewness和weighted quartiles）

5462

4

收藏 2014-04-15

请问在带权重的收入分布中，如何计算带权重的偏度和分位数（weighted skewness和weighted quartiles）？

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

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

非常感谢！

二维码

扫码加我拉你入群

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

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

全部回复

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 ) ]
}

二维码

扫码加我拉你入群

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

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

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))

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

二维码

扫码加我拉你入群

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

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

2015-11-1 17:27:20

嗯...这个在《商务与经济统计》中应该学到过的。

二维码

扫码加我拉你入群

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

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

2018-1-6 23:17:46

summarize var [weight=权重变量] , detail

二维码

扫码加我拉你入群

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

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

相关推荐

栏目导航

热门文章

推荐文章

扫码加好友，拉您进群

各岗位、行业、专业交流群