if (requireNamespace("survival", quietly = TRUE) &&
requireNamespace("glmnet", quietly = TRUE)) {
set.seed(123)
gt <- survival::Surv(
time = rnorm(100, 50, 15),
event = sample(0:1, 100, TRUE)
)
preds <- rbeta(100, 2, 5)
c_index(gt, preds)
}
Run the code above in your browser using DataLab