随机森林将无法运行，错误消息：dim（X）必须具有正长度

Question

library(caret)
library(randomForest)
inTrain <- createDataPartition(y=iris$Species, p=0.7, list=F)
training <- iris[inTrain,]
test <- iris[-inTrain,]
modFit <- train(Species~., data=training,method="rf",prox=F)
modFit
irisP <- classCenter(training[, c(3,4)], training$Species,modFit$finalModel$prox)

我试图使用函数classCenter，但不知怎的，它给了我一条错误信息：

  Error in apply(prox, 1, order, decreasing = TRUE) : dim(X) must have a positive length

我真的很困惑，因为我没有在我的代码中使用apply函数。谁能告诉我哪里做错了？非常感谢！