Сохраните наблюдения Вейбулла в матрице, используя цикл for

Я написал коды для имитации значений Вейбулла на основе 8 различных параметров формы, используя цикл for. Я хочу сохранить его в матрице 365 x 8 и в конечном итоге экспортировать в csv.

Мой код таков:

k <- seq(1.4,2.8,0.2)
test <- matrix(rep(NA,365),nrow=365,ncol=8)
for (i in k){
  wind.k <- mapply(rweibull,i,scale.k,MoreArgs=list(n=1))
  test[ ]<-as.matrix(wind.k)
}

Результат в 365 x8, но я заметил, что он фиксирует только k = 2 для каждого столбца. Кто-нибудь может помочь исправить коды?

Большое спасибо за вашу помощь заранее!