# NOT RUN {
x <- rnorm(30, mean=2, sd=1)
# default behaviour: parameters fixed: simple null hypothesis
cvm.test(x, "pnorm", mean=2, sd=1)
ad.test(x, "pnorm", mean=2, sd=1)
# parameters estimated: composite null hypothesis
mu <- mean(x)
sigma <- sd(x)
cvm.test(x, "pnorm", mean=mu, sd=sigma, estimated=TRUE)
ad.test(x, "pnorm", mean=mu, sd=sigma, estimated=TRUE)
# }
Run the code above in your browser using DataLab