R 朴素贝叶斯误差的预测精度

R 朴素贝叶斯误差的预测精度,r,sentiment-analysis,naivebayes,R,Sentiment Analysis,Naivebayes,我试图找到朴素贝叶斯算法预测的准确性。它给了我这个错误 Error in table(test[, 1], fit1) : all arguments must have the same length 这是我的密码: nbbayes=naiveBayes(train[,-1],train[,1],data=train) newdata=test[,-1] newdata fit1=predict(nbbayes,newdata) fit1 tab1=table(test[,1],fit1)

我试图找到朴素贝叶斯算法预测的准确性。它给了我这个错误

Error in table(test[, 1], fit1) : all arguments must have the same length
这是我的密码:

nbbayes=naiveBayes(train[,-1],train[,1],data=train)
newdata=test[,-1]
newdata
fit1=predict(nbbayes,newdata)
fit1
tab1=table(test[,1],fit1)
accuracy_nb=sum(diag(tab1))/(sum(tab1))

您能否让您的示例具有可复制性,以便我们可以将代码和数据复制/粘贴到我们的R会话中并从那里开始工作?您能否让您的示例具有可复制性,以便我们可以将代码和数据复制/粘贴到我们的R会话中并从那里开始工作?