# NOT RUN {
Titanic %>%
dplyr::as_tibble() %>%
dplyr::mutate(Survived = factor(Survived)) %>%
glm(Survived ~ Class + Age + Sex, data = ., weights = .$n, family = binomial) %>%
tidy_and_attach() %>%
tidy_remove_intercept()
# }
Run the code above in your browser using DataLab