r - 如何通过列表列表循环和子集

Question

我有一个列表，其中每个元素都是一个列表。我想为每个元素（训练集）创建一个样本并返回一个新列表。

例如，sim = [list1, list2, list3]

我可以在没有循环的情况下这样做，但是您将如何优化呢？

trainID =sample(1:1000,700)
train1 <- sim[[1]][trainID,] #first list 
train2 <- sim[[2]][trainID,]
train3 <- sim[[3]][trainID,]
bigtrain <- list(train1, train2, train3)

标签： rloopssimulation

Answer 1

使用lapply：

bigtrain <- lapply(sim, function(x) x[trainID, ])