Pareto NBD R example