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 根據(jù)模型預測的分數(shù) auc()函數(shù)可以計算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 根據(jù)模型預測的分數(shù) auc()函數(shù)可以計算auc值盒齿。
append(1:5, 0:1, after = 3)