dat <- survival::diabetic
dat$ext <- dat$trt == 0 & dat$id > 1000
data_mat <- create_data_matrix(
dat,
outcome = c("time", "status"),
trt_flag_col = "trt",
ext_flag_col = "ext",
covariates = ~ age + laser + log(risk)
)
data_mat
Run the code above in your browser using DataLab