统计思维：将for循环转换为重复函数并使用R存储输出

Question

I'm attempting to do a simple simulation in order to find the sample distribution of my sample average. I'd like to be able to write it strictly using the repeat function and removing the for loop altogether. This is the code thus far (Sorry in advance for the spacing, stackoverflow is formatting it strangely for some reason):

X.samp <- sample(pop.1$height,100)
X.bar <- mean(X.samp)
X.bar <- rep(0,10^5)
for (i in 1:10^5) {
   X.samp <- sample(pop.1$height,100)
   X.bar[i] <- mean(X.samp)
}
hist(X.bar)

Answer 1

Something like this?

 dat <- rnorm(1000) # some data
 res <- replicate(1000, mean(sample(dat, 100)))
 hist(res)