Skip to contents

Uses survival::concordance() (which handles ties + censoring correctly).

Usage

morie_survival_concordance(time, event, risk_score)

Arguments

time

Numeric vector of event/censoring times.

event

Integer/logical vector; 1 = event, 0 = censored.

risk_score

Numeric vector of predicted risk scores aligned with time for concordance / discrimination metrics.

Value

A numeric value (scalar).

Examples

set.seed(1)
time <- rexp(60); event <- rbinom(60, 1, 0.7)
risk <- rnorm(60)
morie_survival_concordance(time, event, risk)
#> [1] 0.4226732