使用各种矩阵填充列表，这些矩阵是矩阵中的样本

Question

我想填充一个包含许多不同矩阵的列表，这些矩阵是通过从原始矩阵中选择各种不同的样本而创建的。然后重复此过程10次。我设法做到了（经过多次战斗/痛苦的学习过程）。如果有人能指出我正确的方向来摆脱我的冗余代码并改进我正在使用的功能（甚至可能摆脱我收集的循环相当不满意），我将非常感激。

我的问题取决于将不同大小的矩阵排除在循环之外。

这是我使用的代码，有一天我渴望编写不难看的R代码：

EquipmentRepository

Answer 1

非常感谢您的所有投入。现在，使用以下两行可以更好地工作。我不知道你可以用laqly来seq_along或seq。这两个组合非常有用。

此向量会更改采样矩阵的大小和重复次数

seq_vector    <- c(rep(seq(0.1,1,by=0.1),each=10))

对由序列载体

定义的所有大小和重复的矩阵进行采样

myotherlist   <- lapply(seq(seq_vector), function(x)   allmat[sample(1:nrow(allmat), replace=T, size=x*nrow(allmat)),])