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