取多个不同大小的随机样本

Question

我有兴趣从现有数据集（10000 行和 114 列）中随机抽取样本，样本大小不断增加（从 194 到 236：194、208、222、236），并进行替换。

直到现在，我一直在尝试这样做。但是，我找不到输入不同大小的方法（这就是它在 x 定义中失败的原因）。

# A small portion of the dataset
dataset <- data.frame(ID = c("model0001", "model0002", "model0003", "model0004", "model0005",
                              "model0006", "model0007", "model0008", "model0009", "model0010"),
                      IL_NA = 1:10, PROD = 11:20, INJ = 21:30)

# As mentioned, my real sizes are -> seq(194,236,by=14) to get samples sizes of 194, 208, 222, 236; for this example:
sizes <- seq(1,8,by=2)
x <- rep_sample_n(candidate_wells, size=sizes, replace=T, reps=4)

sample_set <- lapply(x, function(i) dataset[sample(nrow(dataset), i), ])

如有任何帮助，我们将不胜感激。谢谢！

Answer 1

你们真的很亲密。我不知道 rep_sample_n 来自哪里，但如果你跳过那行，其他一切看起来都是正确的：

sizes <- seq(1, 8, by = 2)
sample_set <- lapply(sizes, function(i) dataset[sample(nrow(dataset), i), ])

取多个不同大小的随机样本

Take multiple random samples of different sizes

r

sample