Как экспортировать каждый вывод в AL oop в 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, который вернет вам 10 столбцов, для которых вы можете использовать colMeans

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

---

Чтобы использовать for l oop, вы можете сохранить результат в список

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)