Это простая функция для имитации настольной игры змей и лестниц.Когда я запускаю функцию, она выводит одно значение.Я хочу повторить этот процесс 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)
}
Как бы яиспользовать цикл для сохранения результатов в векторе?или даже использовать семейство функций apply.Оба метода было бы полезно знать.