Binomial Log Likelihood Function In R