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

 

Logo

DAMO开发者矩阵,由阿里巴巴达摩院和中国互联网协会联合发起,致力于探讨最前沿的技术趋势与应用成果,搭建高质量的交流与分享平台,推动技术创新与产业应用链接,围绕“人工智能与新型计算”构建开放共享的开发者生态。

更多推荐