mean of binomial distribution in r