.old <- data.table::setDTthreads(2)
if (requireNamespace("outbreaks", quietly = TRUE)) {
data(ebola_sim_clean, package = "outbreaks")
dat <- ebola_sim_clean$linelist
i <- incidence(
dat,
date_index = "date_of_onset",
groups = c("gender", "hospital")
)
regroup(i)
regroup_(i)
regroup(i, "hospital")
regroup_(i, hospital)
}
data.table::setDTthreads(.old)
Run the code above in your browser using DataLab