library(MASS)
library(LOGIT)
data(medpar)
mylogit <- glm( died ~ los + white + hmo, family=binomial, data=medpar)
grp10 <- HLTest(obj=mylogit, g=10)
cbind(grp10$observed, round(grp10$expect, digits = 1))
grp10
Run the code above in your browser using DataLab