R 包插入符号问题：无法分配大小的向量

我尝试使用插入符号包运行的模型遇到问题。 直接使用naive Bayes函数，效果绝对良好：

category_model <- naiveBayes(Y ~ X1 + X2 + X3, data=train_category)
predict <- predict(category_model,test_category, type = 'class')

category\u模型
cv_3_folds <- createMultiFolds(train_label, k = 3, times = 3)

ctrl_3 <- trainControl(method = "repeatedcv", number = 3, repeats = 3, index = cv_3_folds)

naivebayes_cv3 <- train(Y~ X1 + X2,
                        data=train_category, 
                        method = "nb", 
                        trControl = ctrl_3)