R语言--GBM-梯度提升机

##GBM
    set.seed(123)
    folds <- createFolds(y=data$Groups,k=5)
    # 建一个放auc值的空向量
        auc<-as.numeric()
        Errorrate<-as.numeric()
        accuracy<-as.numeric