# NOT RUN {
res <- Titanic %>%
dplyr::as_tibble() %>%
dplyr::mutate(Survived = factor(Survived)) %>%
glm(Survived ~ Class + Age * Sex, data = ., weights = .$n, family = binomial) %>%
tidy_and_attach() %>%
tidy_identify_variables()
res
res %>% tidy_select_variables()
res %>% tidy_select_variables(include = "Class")
res %>% tidy_select_variables(include = -c("Age", "Sex"))
res %>% tidy_select_variables(include = starts_with("A"))
res %>% tidy_select_variables(include = all_categorical())
res %>% tidy_select_variables(include = all_dichotomous())
res %>% tidy_select_variables(include = all_interaction())
res %>% tidy_select_variables(
include = c("Age", all_categorical(dichotomous = FALSE), all_interaction())
)
# }
Run the code above in your browser using DataLab