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
        .
        .
        .