Finding Probability Mass Function in R