# NOT RUN {
x <- runif(1000)
pnull <- function(x) x
rnull <- function(n) runif(n)
qnull <- function(x) x
simgof.test(x, pnull, rnull, qnull, FALSE, B=500)
x <- rnorm(1000, 100, 20)
pnull <- function(x, param) pnorm(x, param[1], param[2])
rnull <- function(n, param) rnorm(x, param[1], param[2])
qnull <- function(x, param) qnorm(x, param[1], param[2])
estimate <- function(x) c(mean(x), sd(x))
simgof.test(x, pnull, rnull, qnull, TRUE, estimate, B=500)
# }
Run the code above in your browser using DataLab