auc_value<-as.numeric()
auc_value<- append(auc_value, as.numeric(auc(as.numeric(fold_test[,61]),fold_predict)))
##这里面时添加AUC值 fold_test[,61] 指结局事件 fold_predict 根据模型预测的分数 auc()函数可以计算auc值。
append(1:5, 0:1, after = 3)
auc_value<-as.numeric()
auc_value<- append(auc_value, as.numeric(auc(as.numeric(fold_test[,61]),fold_predict)))
##这里面时添加AUC值 fold_test[,61] 指结局事件 fold_predict 根据模型预测的分数 auc()函数可以计算auc值。
append(1:5, 0:1, after = 3)