if (!requireNamespace("survival", quietly = TRUE)) {
set.seed(10)
data <- simsurvdata(20)
fit <- deepsurv(data = data[1:10, ])
p <- predict(fit, type = "risk", newdata = data[11:20, ])
concordance(risk = p, truth = data[11:20, "time"])
}
Run the code above in your browser using DataLab