我正在运行数千次不需要任何参数的模拟。这是一个非常简单的例子:
simulate <- function() sum(sample(1:10, size = 5))
我可以跑
results <- rep(0,1000)
for(i in 1:1000){
results[i] <- simulate()
}
...但我已经多次阅读 R 中的 for 循环很慢,我需要最大限度地提高速度(我正在做的实际模拟比这更耗时)。
apply
家庭成员results
吗?如果可以,如何使用?sapply
仍然比for循环更快,如果的元素results
不会在模拟功能被使用?你可以使用sapply
这个,但通常我更喜欢这种情况replicate
。
set.seed(123)
replicate(10, simulate())
#[1] 29 24 27 29 29 19 22 31 28 23
您还可以使用rerun
in purrr
which 的行为方式与replicate
.
使用sapply
这种方式将使用匿名函数。
sapply(1:10, function(X) simulate())
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句