Negative Binomial Distribution In R