如何在R中创建for循环来运行一个简单的随机样本并计算每个集合的平均值

Question

data = read.csv(file= "~/Downloads/data.csv")
temp=(data$temp)
n=75
N=length(temp)
s=sample(1:N, n)
ybar=mean(temp[s])

我想在n = 75时运行100次样本。然后计算每个样本的平均值，并从一组数字(50)中减去每个平均值。

Answer 1

也许一个短循环是可行的。注意最后一行代码中等号左侧的括号——这是使用循环进行计算的关键!

# set a seed - always a good idea when using randomness like 'sample()'
set.seed(123)
# pre-allocate an "empty" vector to fill in with results
ybar_vec = vector(length=n)
# do your calculation "n" times
for(i in 1:n) {
s = sample(N)
ybar_vec[i] = 50 - mean(temp[s]) # store i^th calc as i^th element of ybar_vec
}