S-ML~CDF
pSml = function(x,p)
{
p = 0.14870
cos((pi/2)*(1+(exp(-p*x)*(x*p)/(1+p)))*exp(-p*x))
}
ks1=ad1=cvm1=NULL
ks1=ks.test(y,pSml)
ad1=ad.test(y,pSml)
cvm1=cvm.test(y,pSml)
result1=c(ks1$statistic,ks1$p.value,ad1$statistic,ad1$p.value,
cvm1$statistic,cvm1$p.value)