如何导出 R 中循环中的每个输出？

Question

library(SMFI5)

for(i in 1:10)

{
 simulateloop<-sim.vasicek(0.001987455,0.001614103,0.000186756,-0.001,30,1)
 print(simulateloop)
}

simulateloop

sim.vasicek()函数会创建数据输出和图形输出，我只想按行或按列导出每个数据输出，所以我可以使用colMeans()或rowMeans() 来计算这10次模拟的平均值，但我只能得到一个数据输出而不是10个不同的数据输出。谁能告诉我如何按行导出所有 10 个不同的数据输出？

Answer 1

您可以使用 replicate，这将 return 您可以使用 colMeans

的 10 列

library(SMFI5)
simulateloop <- replicate(10, sim.vasicek(0.001987455,0.001614103,0.000186756,-0.001,30,1))

要使用 for 循环，您可以将结果存储在列表中

simulateloop <- vector('list', length = 10)

for(i in 1:10){
  simulateloop[[i]]<- sim.vasicek(0.001987455,0.001614103,0.000186756,-0.001,30,1)
}

然后用sapply取mean

sapply(simulateloop, mean)

how to export every output in a loop in R?