R Code For Logistic Regression Model