R 重复运行函数并追加其输出

我正在使用Gillespiesa包for R，它允许您轻松快速地调用随机模拟的单个实例。但是一个单一的实现并不是非常有用的，我希望能够观察由偶然性产生的变异性等。

library(GillespieSSA)
x0 <- c(S=499, I=1, R=0)
a <- c("0.001*{S}*{I}","0.1*{I}")
nu <- matrix(c(-1,0,
               +1,-1,
               0, +1),nrow=3,byrow=T)
out <- ssa(x0, a, nu, tf=100)

---

但是，数据不会在每个时间步被覆盖。我觉得我已经很接近了，但是本周我在几种语言之间跳了一跳，我的R循环符，虽然已经很弱了，却失败了。

我不确定我是否正确理解了你。你想做如下的事情吗

out <- lapply(X=1:10,FUN=function(x) ssa(x0, a, nu, tf=100)$data)

---

out这可能确实是我想要做的。如何访问第二次运行的第二个元素？与上述问题中的数据[，2]等效。
out[[2]][，2]
将完成这项工作。
out <- lapply(X=1:10,FUN=function(x) ssa(x0, a, nu, tf=100)$data)