df <- Titanic |>
dplyr::as_tibble() |>
dplyr::mutate(Survived = factor(Survived))
glm(Survived ~ Class + Age + Sex, data = df, weights = df$n, family = binomial) |>
tidy_and_attach() |>
tidy_remove_intercept()
Run the code above in your browser using DataLab