Added logit and basic R code