如何使用循环将值存储到向量中？答案

【问题标题】：How do I use a loop to store values into a vector?如何使用循环将值存储到向量中？
【发布时间】：2021-11-23 11:43:51
【问题描述】：

向量需要有 1000 个值，每个值都来自于从更大的数据集中获取样本的平均值。这是我的代码：

xbar10 <- numeric()
for (i in 1:1000) {
  xbar10 <- mean(sample(X, 10))
}

我想使用循环将 mean(sample(X, 10)) 中的每个新值存储到我的新向量 xbar10 中，但我无法让它存储 100 个值，它只返回一个。

【问题讨论】：

【解决方案1】：

这可以使用replicate 来完成。

#Assuming X is something like this
X <- runif(100)
xbar10 <- replicate(1000, mean(sample(X, 10)))
xbar10

【讨论】：

【解决方案2】：

我们可以使用rerun

library(purrr)
X <- runif(100)
xbar10 <- flatten_dbl(rerun(1000, mean(sample(X, 10))))

【讨论】：