1 2 3 4
| library(survcomp) C_index1 <- concordance.index(x=test_data$GS, surv.time=test_data$time, surv.event=test_data$status, method="noether") C_index2 <- concordance.index(x=test_data$T, surv.time=test_data$time, surv.event=test_data$status, method="noether") C_index3 <- concordance.index(x=test_data$Risk_Score_Ridge, surv.time=test_data$time, surv.event=test_data$status, method="noether")
|