我的意思是重复抽样100次，赋给向量rep(0,N)
再求得均值 运行结果如下
> data(cars)
> #list(cars)
> dim(cars)
[1] 50  2
> speed<-cars[,1]
> dist<-cars[,2]
> Ybar<-mean(dist)
> N<-100
> ybar<-rep(0,N)
> for(i in 1:N){
+ ybar[i]<-mean(sample(dist,10))
+ }
> ybar
  [1] 35.7 38.7 49.6 36.3 42.5 42.3 54.6 48.3 48.1 39.2 38.5 58.8 45.5 32.2
[15] 35.3 54.0 42.8 39.7 33.7 34.6 49.0 58.3 34.0 37.3 44.1 34.5 43.3 39.3
[29] 36.4 39.5 40.0 53.7 30.2 38.4 39.8 52.3 32.5 43.3 38.2 39.6 50.2 44.1
[43] 44.1 36.7 47.7 39.8 38.3 53.5 43.5 46.1 43.6 22.1 53.0 46.2 62.7 54.0
[57] 48.7 49.8 34.9 42.3 55.6 47.9 47.9 40.6 41.9 32.0 45.6 40.7 50.2 49.8
[71] 46.8 41.6 37.3 41.5 39.4 34.0 42.2 45.7 50.8 39.9 38.9 34.2 28.0 48.7
[85] 49.1 30.2 47.1 44.0 53.9 54.4 39.0 35.0 43.7 39.3 45.4 35.0 30.8 50.6
[99] 47.9 38.9
> > mean(ybar)
[1] 42.809
>
现在N要取100，200.希望得到如42.809这样的20个均值
上面程序合起来就是
data(cars)
#list(cars)
dim(cars)
speed<-cars[,1]
dist<-cars[,2]
Ybar<-mean(dist)
N<-100
ybar<-rep(0,N)
for(i in 1:N){
ybar[i]<-mean(sample(dist,10))
}
ybar<-mean(ybar)

是100个样本，就是求这100个样本的均值，得到一个，现在100个换做100,200...2000，求得20个均值

那为什么不直接取个1000的样本呢？

(1)         从R中装载数据集”cars”;
(2)         当Iteration=100,N=50,n=10时,求均值ybar ;
(3)         当Iteration=500,N=50,n=10时,求均值ybar ;
(4)         当Iteration=1000,N=50,n=10时,求均值 ybar;
(5)         编写循环语句,计算Iteration 从100变化到2000,步长为100时,求均值ybar ;
原题是这样，如果我没理解错的话按照(2)(3)(4)求得的是当N=100,500,1000时，求得均值，用上面程序改变N的值即可，但是问题(5)是要求N等于100,200，...2000这20个数时的均值ybar!!!求得的输出结果也应该是20个均值数列啊！

data(cars)
dim(cars)
speed <- cars[, 1]
dist <- cars[, 2]
Ybar <- mean(dist)
Ns <- seq(100, 2000, by=100)
output <- rep(NA, length(Ns))
k <- 1
for (N in Ns) {
    ybar <- rep(0, N)
    for (i in 1:N) {
        ybar[i] <- mean(sample(dist, 10))
    }
    output[k] <- mean(ybar)
    k <- k + 1
}

恩 应该就是这样了，谢谢版主啊！