# NOT RUN {
explanatory = c("age.factor", "sex.factor", "obstruct.factor", "perfor.factor")
dependent = 'mort_5yr'
colon_s %>%
summary_factorlist(dependent, explanatory) %>%
ff_column_totals(colon_s, dependent)
# Ensure works with missing data in dependent
colon_s = colon_s %>%
dplyr::mutate(
mort_5yr = forcats::fct_explicit_na(mort_5yr)
)
colon_s %>%
summary_factorlist(dependent, explanatory) %>%
ff_column_totals(colon_s, dependent)
# }
Run the code above in your browser using DataLab