# NOT RUN {
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.SAS")
) %>%
tidy_and_attach() %>%
tidy_add_variable_labels(labels = list(Class = "Custom label for Class")) %>%
tidy_add_reference_rows() %>%
tidy_add_header_rows()
if (requireNamespace("gtsummary")) {
glm(
response ~ stage + grade * trt,
gtsummary::trial,
family = binomial,
contrasts = list(
stage = contr.treatment(4, base = 3),
grade = contr.treatment(3, base = 2),
trt = contr.treatment(2, base = 2)
)
) %>%
tidy_and_attach() %>%
tidy_add_reference_rows() %>%
tidy_add_header_rows()
}
# }
Run the code above in your browser using DataLab