Logistic Regression In R Program