# NOT RUN {
data(infections); db_1 <- infections
data(hospital_admissions) ; db_2 <- hospital_admissions
db_1$patient_id <- c(rep("PID 1",8), rep("PID 2",3))
# Fixed episodes
# One 16-day (15-day difference) episode per patient
db_1$ep1 <- episodes(date = db_1$date,
strata = db_1$patient_id,
case_length = 15,
episodes_max = 1)
# Rolling episodes
# 16-day episodes with recurrence periods of 11 days
db_1$ep2 <- episodes(date = db_1$date,
case_length = 15,
recurrence_length = 10,
episode_type = "rolling")
# Interval grouping
db_2$admin_period <- number_line(db_2$admin_dt,
db_2$discharge_dt)
# Episodes of hospital stays
db_2$ep3 <- episodes(date = db_2$admin_period,
case_length = index_window(db_2$admin_period),
case_overlap_methods = "inbetween")
# }
Run the code above in your browser using DataLab