# NOT RUN {
library(MASS)
library(recipes)
rec <- recipe(time + status ~ sex + age + year + thickness + ulcer,
data = within(Melanoma, status <- status != 2)) %>%
role_surv(time = time, event = status) %>%
role_case(stratum = status)
(res <- resample(rec, model = CoxModel))
summary(res)
# }
Run the code above in your browser using DataLab