data(Daim.data1)
perform <- performDaim(Daim.data1$prob.oob, Daim.data1$labels,
Daim.data1$prob.app)
####
#### compute the 0.632+ estimation of the AUC.
####
auc(perform$roc$sens632p, perform$roc$spec632p)
Run the code above in your browser using DataLab