这是模拟蛇和梯子棋盘游戏的简单功能。当我运行该函数时,它将输出一个值。我想重复此过程n次,并将值存储在向量中。
我尝试过lapply(1:1000, snakesnl())
,但遇到此错误Error in FUN(X[[i]], ...) : unused argument (X[[i]])
snakesnl <- function(){
i <- 1
s <- 0
while (i < 25){
s <- s + 1
d <- sample(1:6,1)
i <- i + d
}
return(s)
}
如何使用for循环将结果存储在向量中?甚至使用apply系列功能。两种方法都很好了解。