##-- Continued from '?glm':
utils::example("glm", echo = FALSE)
print(ag <- anova(glm.D93))
stat.anova(ag$table, test = "Cp",
scale = sum(resid(glm.D93, "pearson")^2)/4,
df.scale = 4, n = 9)
Run the code above in your browser using DataLab