if (FALSE) { # interactive()
glm(response ~ age * trt + grade, gtsummary::trial, family = binomial) |>
tidy_plus_plus(exponentiate = TRUE, include = all_categorical())
glm(response ~ age + trt + grade + stage,
gtsummary::trial,
family = binomial,
contrasts = list(trt = contr.SAS, grade = contr.sum, stage = contr.poly)
) |>
tidy_plus_plus(
exponentiate = TRUE,
include = all_contrasts(c("treatment", "sum"))
)
}
Run the code above in your browser using DataLab