Create pareto.R