R：使用naiveBayes进行预测时出错

Question

当我尝试使用naiveBayes进行预测时，R显示此错误：

Error: protect(): overflow protection stack.

这是我的预测代码

#Naive Bayes
train<-read.csv("/Users/myuser/Desktop/folder/training.csv")
test<-read.csv("/Users/myuser/Desktop/folder/testing.csv")
train$data<-as.factor(train$data)
test$data<-as.factor(test$data)
model<-naiveBayes(type ~.,data=train,laplace=5)
predicted<-predict(model,test)
result<-cbind(predicted,test)
write.csv(result,"results.csv")