# 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