Initial R code for Pareto