# NOT RUN {
if (requireNamespace("outbreaks", quietly = TRUE)) {
withAutoprint({
data(ebola_sim_clean, package = "outbreaks")
dat <- ebola_sim_clean$linelist
i <- incidence(dat,
date_index = date_of_onset,
groups = c(gender, hospital))
i %>% regroup()
i %>% regroup(hospital)
})
}
# }
Run the code above in your browser using DataLab