.old <- data.table::setDTthreads(2)
data(ebola_sim_clean, package = "outbreaks")
dat <- ebola_sim_clean$linelist
inci <- incidence(dat, "date_of_onset", groups = c("gender", "hospital"))
summary(inci)
data.table::setDTthreads(.old)
Run the code above in your browser using DataLab