# Script for Binary Logistic Regression

# exponentiated coefficients (Odds Ratio) in the model GLM.1
exp(coef(GLM.1)) 

# 95% CI for exponentiated coefficients (CI of Odds Ratio) in the model GLM.1
exp(confint(GLM.1)) 



# The following script will compute the predicted probability
# using predictor variables AGE and SECTOR in the model GLM.1
predict(GLM.1, newdata=data.frame(AGE=25,SECTOR="Sector 1"), type="response")



# predicted values from all data cases used to build the model GLM.1
predict(GLM.1, type="response") 

# residuals from all data cases used to build the model GLM.1
residuals(GLM.1, type="deviance")