weighted logistic regression in r