# NOT RUN {
Titanic %>%
dplyr::as_tibble() %>%
dplyr::mutate(Survived = factor(Survived, c("No", "Yes"))) %>%
glm(Survived ~ Class + Age * Sex, data = ., weights = .$n, family = binomial) %>%
tidy_and_attach() %>%
tidy_identify_variables()
lm(
Sepal.Length ~ poly(Sepal.Width, 2) + Species,
data = iris,
contrasts = list(Species = contr.sum)
) %>%
tidy_and_attach(conf.int = TRUE) %>%
tidy_identify_variables()
# }
Run the code above in your browser using DataLab