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