## Not run: mod1 <- lm(wage ~ age * sex + sector, data = mosaicData::CPS85)
# evaluate_model(mod1)
# mod3 <- glm(married == "Married" ~ age + sex * sector,
# data = mosaicData::CPS85, family = "binomial")
# evaluate_model(mod3, nlevels = 2, type = "response")
# evaluate_model(mod3, nlevels = 2, type = "response", at = list(sex = "F"))
# ## End(Not run)
Run the code above in your browser using DataLab