# \donttest{
# Fits a Weibull 5,2 distribution:
weibull.approx.ml<-fun.data.fit.ml(rweibull(1000,5,2))
# Compute the resample K-S test results.
fun.diag1(weibull.approx.ml, rweibull(100000, 5, 2))
# }
Run the code above in your browser using DataLab