Update pareto.R