# NOT RUN {
###produce random number###
x <- runif(100, 5.0, 50.0)
###Kolmogorov-Smirnor (KS)###
ks <- ks.test(jitter(x),"pnorm",mean(x),sd(x))
ks
###histogram###
hist(x)
###boxplot###
boxplot(x)
###qqnorm###
qqnorm(x)
# }
Run the code above in your browser using DataLab