P <- sum(W*W)
S <- apply(W,2,function(x){
x <- sum(x)
x <- x*x
return(x)
})
h<- S/P#计算入样概率
我有如上一段代码,现在想根据h的值大小,从W中抽出入样概率最大的前10列,请问应该怎么写这样的R代码?

|
楼主: xiaoxue@
|
955
2
[问答] 关于抽样的R语言咨询 |
|
本科生 83%
-
|
| ||
|
|
加好友,备注cda京ICP备16021002号-2 京B2-20170662号
京公网安备 11010802022788号
论坛法律顾问:王进律师
知识产权保护声明
免责及隐私声明


