survConcordance(Surv(time, status) ~age, data=lung)
options(na.action=na.exclude)
fit <- coxph(Surv(time, status) ~ ph.ecog + age + sex, lung)
survConcordance(Surv(time, status) ~predict(fit), lung)
## Not run: ------------------------------------
# n=227 (1 observations deleted due to missing values)
# Concordance= 0.6371102 , Gamma= 0.2759638
# concordant discordant tied risk tied time
# 12544 7117 126 28
## ---------------------------------------------
Run the code above in your browser using DataLab