# 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))
get_counts(i)
get_counts_name(i)
get_group_names(i)
get_dates(i)
get_dates_name(i)
get_date_group_names(i)
get_interval(i)
get_n(i)
get_timespan(i)
})
}
# }
Run the code above in your browser using DataLab