For循环仅将最终结果存储在R中

Question

我试图在R中运行for循环，将结果存储在列表中。 由于输出的长度不同，我无法将数据存储在矩阵中。 例如，以下代码生成一个列表，除最后一节外，所有条目均为“ NULL”。

for(i in 1:n) {
  time <- list()
  time[[i]] <- (sample(1:96, wb[i], replace=T, prob=weekday[,1]))
print(time)
}

但是，如果执行此操作，则结果是我想要的，但未存储，因此以后无法使用。

for(i in 1:n) {
   print(sample(1:96, wb[i], replace=T, prob=weekday[,1]))
}

任何帮助，将不胜感激！

Answer 1

为了增加乐趣（和效率），您可以尝试

time <- lapply(1:n, function(i) sample(1:96, wb[i], replace=T, prob=weekday[,1]))