## Example 1
X <- rnorm(1000,1,1)
test_ks_dnorm(X, mean=1, sd=1)
test_ks_dlognorm(exp(X), meanlog=1, sdlog=1)
## Example 2
X = c(runif(100),rt(200,20),rnorm(200))
X = sample(X)
test_ks_dnorm(X, mean=mean(X), sd=sd(X))
Run the code above in your browser using DataLab