set.seed(123)
x <- rnorm(1000, mean = 5, sd = 2)
KSgof2(x, dist = "norm", mean = 5, sd = 2)
y <- rexp(500, rate = 0.5)
KSgof2(y, dist = "exp", rate = 0.5)
u <- runif(300, min = 0, max = 10)
KSgof2(u, dist = "unif", min = 0, max = 10)
Run the code above in your browser using DataLab