data(infections)
data(hospital_admissions)
# One 16-day (15-day difference) fixed episode per type of infection
fixed_episodes(date = infections$date,
strata = infections$infection,
case_length = 15,
episodes_max = 1)
# Multiple 16-day episodes with an 11-day recurrence period
rolling_episodes(date = infections$date,
case_length = 15,
recurrence_length = 10)
# Overlapping episodes of hospital stays
hospital_admissions$admin_period <-
number_line(hospital_admissions$admin_dt,
hospital_admissions$discharge_dt)
hospital_admissions$epi_length <-
index_window(hospital_admissions$admin_period)
episode_group(hospital_admissions,
date = admin_period,
case_length = epi_length,
case_overlap_methods = "inbetween")
Run the code above in your browser using DataLab