R - Имитация данных с помощью цикла

Question

Я смоделировал данные (1000 строк) по экспоненциальной функции со средним значением 120

  sim_data <- rexp(1000, 1/120)

Как мне повторить это в течение 100 дней, чтобы получить смоделированные данные во фрейме данных следующим образом:

head (sim_data_frame)

   sim_data1    sim_data2    sim_data3 ... sim_data100


 [1] 59.33708159  29.23829096  247.02014989  71.85972065
 [2] 14.03171085  46.64195945  38.03259199   92.18882163
...
 [1000]109.83320146 90.00037210   7.29312409   2.67249848 

Answer 1

Мы можем использовать replicate, чтобы сделать это n раз

do.call(cbind, replicate(4, rexpr(1000, 1/120), simplify = FALSE))

Или использовать

replicate(4, rexpr(1000, 1/120))

Answer 2

Вы также можете попробовать matrix

n <- 100
matrix(rexp(1000*n, 1/120),ncol = n)