# 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)
x <- runif(1000)
chisquare.test(x, case)
# }
Run the code above in your browser using DataLab