#训练集ROCtrainroc<-roc(response=trainy,predictor=p1)head(trainroc)#训练集ROC曲线plot(trainroc,print.roc=TRUE,auc.polygon=T,grid=T,max.auc.polygon=T,auc.polygon.col='skyblue',print.thres=T,legacy.axes=T,bty="l")#trainy是训练集实际标签,p1是预测出来的概率图片如下