r语言 - 如何使用循环将值存储到vector中?

Question

向量需要有1000个值，每个值来自于从更大的数据集中取一个样本的平均值。下面是我的代码:

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

我想使用一个循环来存储从mean(sample(X, 10))到我的新向量xbar10的每个新值，但是我有麻烦让它存储100个值，它只返回一个。

Answer 1

这可以用replicate来完成。

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

Answer 2

我们可以使用rerun

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