expected value of binomial distribution in r