data(esoph)
esoph
pct_routine(esoph, agegp, alcgp)
pct_routine(esoph, agegp, alcgp, wt = ncases)
# Crate new grouping variables
pct_routine(esoph, agegp, low_alcgp = alcgp %in% c("0-39g/day", "40-79"))
# This examples shows how rebase works
if (require(dplyr)) {
iris %>%
mutate(random_missing = ifelse(rnorm(n()) > 0, NA, round(Sepal.Length))) %>%
group_by(Species, random_missing) %>%
tally_pct(wt = Sepal.Width, rebase = TRUE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.