# 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"),
pct = "row", comp = "all") %>%
tab_ci("diff", color = "after_ci")
# }
Run the code above in your browser using DataLab