if (requireNamespace("outbreaks", quietly = TRUE)) {
withAutoprint({
data(ebola_sim_clean, package = "outbreaks")
dat <- ebola_sim_clean$linelist
(out <- incidence(dat, "date_of_onset"))
# use `n` to print more lines
print(out, n = 20L)
})
}
Run the code above in your browser using DataLab