Create logit.R