# NOT RUN {
# Data
data("mims")
# Parameters
id <- "patid"
first <- "first_visit_date_bl"
last <- "ldka"
event.dates <- c("mi_date_1", "mi_date_2", "mi_date_3")
model.type <- "marginal"
death <- "DEATH_CV_YN"
# Run analysis
tbl <- recur_survival_table(
mims, id, first, last, event.dates, model.type, death
)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab