# NOT RUN {
if (requireNamespace("outbreaks", quietly = TRUE)) {
withAutoprint({
data(ebola_sim_clean, package = "outbreaks")
dat <- ebola_sim_clean$linelist
# daily incidence
dat %>%
incidence(date_of_onset)
# weekly incidence
dat %>%
incidence(date_of_onset, interval = "week", standard = FALSE)
# starting on a Monday
dat %>%
incidence(date_of_onset, interval = "isoweek")
# starting on a Sunday
dat %>%
incidence(date_of_onset, interval = "epiweek")
# starting on a Saturday
dat %>%
incidence(date_of_onset, interval = "saturday epiweek")
# group by gender
dat %>%
incidence(date_of_onset, interval = 7, groups = gender)
# group by gender and hospital
dat %>%
incidence(date_of_onset,
interval = "2 weeks",
groups = c(gender, hospital))
})
}
# use of first_date
dat <- data.frame(dates = Sys.Date() + sample(-3:10, 10, replace = TRUE))
dat %>% incidence(dates,
interval = "week",
first_date = Sys.Date() + 1)
# }
Run the code above in your browser using DataLab