require(dplyr, quietly = TRUE)
#' data(Oncho)
## A two by two contingency table:
Oncho |>
select(mf, area) |>
cross_tbl(by = "mf", bold = TRUE) |>
theme_pubh(2)
## Reporting prevalence:
Oncho |>
select(mf, area) |>
cross_tbl(by = "area", bold = TRUE) |>
theme_pubh(2)
## Descriptive statistics for all variables in the \code{Oncho} data set except \code{id}.
Oncho |>
select(-id) |>
cross_tbl(by = "mf", bold = TRUE) |>
theme_pubh(2)
Run the code above in your browser using DataLab