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_na_value_to_level(mort_5yr, level = "(Missing)")
)
colon_s %>%
summary_factorlist(dependent, explanatory) %>%
ff_column_totals(colon_s, dependent)
Run the code above in your browser using DataLab