# NOT RUN {
## raw data
x <- rweibull(100, 2, 1)
fit.Weibull(x)
## binned data
data(hhi)
hmob <- binning(counts=hhi$mob, breaks=hhi$breaks)
fit.Weibull(hmob, dist="weibull")
fit.Weibull(hmob, dist="gwd")
fit.Weibull(hmob, dist="ewd")
# }
Run the code above in your browser using DataLab