Weighted logit with R