if (requireNamespace("survival", quietly = TRUE)) {
fit <- survival::coxph(survival::Surv(time, status) ~ age, data = survival::lung)
# Linear predictor on the training data
calc_risk_score(fit)
# Risk scale predictions on new data
calc_risk_score(fit, survival::lung, type = "risk")
}
Run the code above in your browser using DataLab