虽然我正在定义它target <- factor(train$target, levels = c(0, 1))
,但下面给出的代码提供了这个错误:
cut.default(y, unique(quantile(y, probs = seq(0, 1, length = cut))) 中的错误:无效的间隔数另外:警告消息:1:在 train.default(x, y , weights = w, ...) : 无法计算回归的类别概率
这是什么意思以及如何解决这个问题?
gbmGrid <- expand.grid(n.trees = (1:30)*10,
interaction.depth = c(1, 5, 9),
shrinkage = 0.1)
fitControl <- trainControl(method = "repeatedcv",
number = 5,
repeats = 5,
verboseIter = FALSE,
returnResamp = "all",
classProbs = TRUE)
target <- factor(train$target, levels = c(0, 1))
gbm <- caret::train(target ~ .,
data = train,
#distribution="gaussian",
method = "gbm",
trControl = fitControl,
tuneGrid = gbmGrid)
prob = predict(gbm, newdata=testing, type='prob')[,2]