# NOT RUN {
x <- rinvpareto(1e3, k = 1.5, xmax = 5)
## Pareto fit with xmin set to the minium of the sample
invpareto.mle(x = x)
## Pareto fit with xmin set to its real value
invpareto.mle(x = x, xmax = 5)
## Pareto fit with xmin determined by the Clauset method
invpareto.mle(x = x, clauset = TRUE)
# }
Run the code above in your browser using DataLab