对于容量太小的问题，可以结合bootstrap方法来做，从原来样本中有放回的抽样，抽500个
用离散型均匀分布来实施这个重新抽样方法

x=rnorm(25)
boot=0
for(i in 1:500){
boot[i]=mean(sample(x,replace=TRUE))
}
boot

是这样的一个程序吗
应该不是，请问怎样改？谢谢各位兄弟姐妹了