美国统计教授的成名之作--Harrell's C指数,发在JAMA上!


library(survival)
summary(lung)
str(lung)


cox_model <- coxph(Surv(time, status) ~ age + sex, data = lung)
summary(cox_model)

concordance(cox_model)


(11910+311/2)/(11910+7793+311)

mydata <- na.omit(lung)
model1 <- coxph(Surv(time, status) ~ age + sex, data = mydata)
model2 <- coxph(Surv(time, status) ~ age + sex + ph.ecog, data = mydata)
model3 <- coxph(Surv(time, status) ~ age + sex + ph.ecog + meal.cal, data = mydata)
concordance(model1, model2, model3)


1. Evaluating the Yield of Medical Tests
2024-05-13 10:06