coefficients(object) residuals(object) fitted.values(object)
kyph.glm1 <- glm(Kyphosis ~ Age + Start + Number, family = binomial, data = kyphosis) coef(kyph.glm1)# produces the following output: (Intercept) Age Start Number -2.036932 0.01093048 -0.20651 0.410601
residuals(kyph.glm1)
# produces the following output: 1 2 3 4 5 -0.7707923 -0.5111615 1.189314 -1.106713 -0.2461915 . . .