Bootstrap内部验证代码，R自带数据集，保证出结果

library(rms)

head(lung)

用age+sex+ph.ecog+ph.karno这几个指标来预测结局

m <- lrm(status~ age+sex+ph.ecog+ph.karno, x = T,y = T,data = lung)

m

res.val <- validate(m, B=1000)

res.val

c_index <-(res.val[1,1]+1)*0.5

c_index

adjust_c_index <-(res.val[1,5]+1)*0.5

adjust_c_index

#根据Dxy计算c index  C=0.5(Dxy+1)

#index.orig是原始Dxy

#index.corrected是校正后的Dxy