log likelihood logistic regression in r