# NOT RUN {
glm(
am ~ mpg + factor(cyl),
data = mtcars,
family = binomial,
contrasts = list(`factor(cyl)` = contr.sum)
) %>%
model_list_terms_levels()
df <- Titanic %>%
dplyr::as_tibble() %>%
dplyr::mutate(Survived = factor(Survived, c("No", "Yes")))
df %>%
glm(
Survived ~ Class + Age + Sex,
data = ., weights = .$n, family = binomial,
contrasts = list(Age = contr.sum, Class = "contr.helmert")
) %>%
model_list_terms_levels()
# }
Run the code above in your browser using DataLab