# NOT RUN {
data(oswego, package = "epitools")
require(dplyr)
require(sjlabelled)
oswego <- oswego %>%
mutate(
ill = factor(ill, labels = c("No", "Yes")),
sex = factor(sex, labels = c("Female", "Male")),
chocolate.ice.cream = factor(chocolate.ice.cream, labels = c("No", "Yes"))
) %>%
var_labels(
ill = "Developed illness",
sex = "Sex",
chocolate.ice.cream = "Consumed chocolate ice cream"
)
require(moonBook)
mytable(ill ~ sex + chocolate.ice.cream, data = oswego, show.total = TRUE)
oswego %>%
mhor(ill ~ sex/chocolate.ice.cream)
# }
Run the code above in your browser using DataLab