一个简单程序，结果和文献中严重不一致，请大家看看是我对了还是文献对的？

这个是文献截图beta（2,2），n=20时，用KS法检验样本，模拟1000次，当α《0.05时记为1，求和后得出功效。

我用的程序是
> library(fBasics)
> library(akima)
> n=10000
> c4=numeric(n)
> for (i in 1:n){
+ a1<-rbeta(20,2,2)
+ b4<-ks.test(a1,'pnorm')
+ c4=ifelse(b4$p.value<0.05,1,0)
+ sum(c4==1)
+ }
> d4<-c4
> sum(d4)*100/n
[1] 100
>


得出的功效确实100%？
这是怎么一回事？我用文献中其他几种方法（SW法，JB法）得出的结果基本和文献时一致的，可是KS法却完全不一样，为什么？求助大家！！！！！！！！！！！！！！！！

请帮忙看看吧，谢谢了

ks.test(x,y)检验x,y是否来自同一分布.看了程序：
随机数 a1<-rbeta(20,2,2)来自beta分布，
而ks.test(a1,'pnorm')则是检验随机数a1来自正态分布，所以检验结果拒绝了原假设。

delphy_crystal 发表于 2013-5-26 11:35
ks.test(x,y)检验x,y是否来自同一分布.看了程序：
随机数 a1

我知道是这个意思，但是我的问题是为什么我做的结果和文献完全不一样？

文献写的就是对的？可以和作者联系，说明情况么