# NOT RUN {
# A typical workflow with tabxplor step-by-step functions :
# }
# NOT RUN {
data <- dplyr::starwars %>%
tab_prepare(sex, hair_color, gender, rare_to_other = TRUE,
n_min = 5, na_drop_all = sex)
data %>%
tab_plain(sex, hair_color, gender, tot = c("row", "col")) %>%
tab_chi2(calc = c("p", "ctr"), color = TRUE)
# }
Run the code above in your browser using DataLab