if (FALSE) { # interactive()
if (.assert_package("gtsummary", boolean = TRUE)) {
df <- Titanic |>
dplyr::as_tibble() |>
dplyr::mutate(Survived = factor(Survived, c("No", "Yes")))
glm(
Survived ~ Class + Age:Sex,
data = df, weights = df$n,
family = binomial
) |>
model_list_variables()
lm(
Sepal.Length ~ poly(Sepal.Width, 2) + Species,
data = iris,
contrasts = list(Species = contr.sum)
) |>
model_list_variables()
glm(
response ~ poly(age, 3) + stage + grade * trt,
na.omit(gtsummary::trial),
family = binomial,
) |>
model_list_variables()
}
}
Run the code above in your browser using DataLab