# NOT RUN {
case <- list(B=1000, param = NULL, n = 1000, pnull = function(x, param)
punif(x), rnull = function(n, param) runif(n), qnull = function(x, param)
qunif(x), est.mle = function(x) NA, nbins = 10)
case$methods=c("KS", "AD", "CdM", "W", "ZA", "ZK", "ZC")
x <- runif(1000)
TS(x, case)
# }
Run the code above in your browser using DataLab