Create logit.1

First logit model in r