保存循环结果R.

Question

请告诉我如何将循环结果保存到表（data.frame）甚至.csv文件中。我自己无法解决这个问题。

for (i in 1:10000){
      x<-pois(1,40)
      sum<-round(digits = 2, sum(rlnorm(x, log(10), log(5))))
      }

Answer 1

如果要使用for循环，请创建一个空向量，然后遍历每个位置。

mySums <- numeric(10000)
for (i in 1:10000){
  x <- rpois(1,40)
  mySums[i] <- round(digits = 2, sum(rlnorm(x, log(10), log(5))))
}

然后直接将其转换为数据帧或您需要的任何其他格式。

编辑：假设您打算使用rpois()或类似内容。

Answer 2

假设您要拨打rpois()（而不是pois()）：

mySums <- replicate(10000, round(digits=2, sum(rlnorm(rpois(1,40), log(10), log(5)))))

Answer 3

确实，是的，我的意思是rpois功能。我用下一个公式解决了它：

Results=matrix(0,10000,1)

for ( i in 1:10000)
{
  x<-rpois(1,40)
  Results[i,1]<-round(digits = 2, sum(rlnorm(x,log(20), log(4))))
}