Question

我想针对不同的样本量模拟此功能。为了澄清，我不希望运行仿真的次数改变（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()

Answer 1

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

有没有一种方法可以针对R中的不同样本量复制函数？

1 个答案: