library(MASS)
library(LOGIT)
data(medpar)
mylogit <- glm( died ~ los + white + hmo, family=binomial, data=medpar)
summary(mylogit)
medpar2 <- na.omit(medpar)
hlGOF.test(medpar2$died, predict(mylogit,medpar2, type="response"), breaks=12)
Run the code above in your browser using DataLab