auc_value<-as.numeric()
auc_value<- append(auc_value, as.numeric(auc(as.numeric(fold_test[,61]),fold_predict)))?
##這里面時(shí)添加AUC值 ??fold_test[,61] 指結(jié)局事件 ?fold_predict 根據(jù)模型預(yù)測(cè)的分?jǐn)?shù) auc()函數(shù)可以計(jì)算auc值。
append(1:5, 0:1, after = 3)