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)