R程序求帮助啊，求帮助啊，谁能帮帮我

请问一下怎样在R中实现对[0,10]的均匀分布抽样，样本量为30，抽样次数为100次，然后计算样本量均值，用ks检验是否近似正态分布。求大神帮帮忙啊

set.seed(123)
X=sapply(1:100,function(o){mean(runif(30,0,10))})
ks.test(X,"pnorm",mean(X),sd(X))
qqnorm(X)
qqline(X)
#之前那个KS检验不对，没有写分布参数，所以默认N(0,1)了

set.seed(123)
X=sapply(1:100,function(o){mean(runif(30,0,10))})
ks.test(X,"pnorm")

huyiustc 发表于 2014-11-15 22:02
set.seed(123)
X=sapply(1:100,function(o){mean(runif(30,0,10))})
ks.test(X,"pnorm",mean(X),sd(X))

诶呀，谢谢，谢谢。再问两个问题，这个set.seed是什么意思呢，还有ks里面的均值和方差是不是原总体的均值和原总体的方差除以n,也就是样本量？

huyiustc 发表于 2014-11-15 22:02
set.seed(123)
X=sapply(1:100,function(o){mean(runif(30,0,10))})
ks.test(X,"pnorm",mean(X),sd(X))

诶呀，谢谢，谢谢。再问两个问题，这个set.seed是什么意思呢，还有ks里面的均值和方差是不是原总体的均值和原总体的方差除以n,也就是样本量？

sadeira 发表于 2014-11-15 22:22
诶呀，谢谢，谢谢。再问两个问题，这个set.seed是什么意思呢，还有ks里面的均值和方差是不是原总体的均值 ...

你说的很对，均值就是总体均值，标准差就是总体标准差/^sqrt(n),set.seed(123)是设定随机种子，如果设定的随机种子相同，这模拟产生的随机数相同，这样便于其他人验证你的随机模拟实验