Revised logit.R