## Example 1
X <- rexp(1000,c(1,2,3))
test_ks_dexp(X, lambda=1)
test_ks_dexp(X, lambda=2)
test_ks_dexp(X, lambda=3)
## Example 2
X <- rexp(1000,3)
test_ks_dexp(X, lambda=3)
test_ks_dweibull(X, shape=1, scale=(1/3))
test_ks_dgamma(X, shape=1, rate=3)
Run the code above in your browser using DataLab