我想针对不同的样本量模拟此功能。为了澄清，我不希望运行仿真的次数改变（n），而是我想在ok函数中针对不同大小复制此仿真（ok函数中的当前大小为2，而我想要将此功能复制到2到10号）。
非常感谢。请让我知道是否需要澄清其中的任何部分。
simulate_f <- function(n){
n <- 2000
n.run <- 0
for (i in 1:n){
ok <- sample(1:4, size=2 ,replace=TRUE)
if(var(ok)==0){
n.run <- n.run + 1
}
}
n.run/n
}
simulate_f()
如果-n为常数，则可能不需要该作为参数。而是使用size输入作为函数中的变量组件
simulate_f <- function(size){
n <- 1000
n.run <- 0
for (i in 1:n){
ok <- sample(1:4, size=size ,replace=TRUE)
if(var(ok)==0){
n.run <- n.run + 1
}
}
n.run/n
}
sapply(2:10, simulate_f)
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句