mle of binomial distribution in r