我有10个变量X1,X2,.. X10
> X1
[1] 11.388245 3.847984 3.271024 3.637894
> X2
[1] 3.603660 3.176091 20.868740 4.229564 3.150181 3.379059 11.379710 3.577636 5.094401
> X10
[1] 11.613462 7.360181 3.210812 5.066974 5.391218 3.049254 10.639178 4.154140
[9] 3.502896 7.919751 3.416924 6.577095 5.047722 3.953996 3.153649 3.005215
ms<-list()
for (i in c(X1,X2,X3,X4,X5,X6,X7,X8,X9,X10)){
n<-length(i)
m<-n/sum(log(i/3))
ls<-c(ms,m)
}
上面的R代码不起作用。我想要的是使用包含从计算得出的10个值的数字变量ms获得最终结果n/sum(log(i/3)
。
> n<-length(X1)
> m<-n/sum(log(X1/3))
>
> m
[1] 2.148009
在循环中应用X1,X2,.. X10后得到:
Ms <-(m1 m2 m3 ...m10)
这是MWE
ms <- c()
#to define ms in more efficient way use
#ms <- vector("double", 10)
for(i in seq_len(10)){
#use get to retrive an object from the global Environment
n<-length(get(paste0('X',i)))
m<-n/sum(log(get(paste0('X',i))/3))
ms[i]=m
}
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句