在R中：（为了验证CLT）演示重复取1000次样本量为1000的服从卡方分布（自由度为5）的变量，求每次取样的样本均值，为什么每次循环出来的Z都是一个值啊
for(i in 1:1000){
  a[i]=rchisq(n=1000,df=5,ncp=0)
  mean(a[i])
  Z[i]=mean(a[i])
}
Z=matrix(Z[i],nrow=1000,ncol=1)
Z