data(bioChemists)
glm1 <- glm(art ~ .,
data=bioChemists,
family=poisson,
trace=TRUE) ## poisson GLM
phat <- predprob(glm1)
apply(phat,1,sum) ## almost all 1.0
Run the code above in your browser using DataLab