我正在尝试对虹膜数据进行分类，但是当我尝试使用table(pred,iris_test$Species)绘制我的预测时。我收到一条错误消息。当我使用C50执行相同的操作时，我没有收到错误消息。如果有人遇到类似的问题，请你帮我R-3.4.0版本
错误讯息：
表中的错误（pred，iris_test $ Species）：所有参数必须具有相同的长度
data("iris")
View(iris)
set.seed(123)
samp<-sample(nrow(iris),0.6*nrow(iris))
iris_train<-iris[samp,]
iris_test<-iris[-samp,]
library(rpart)
fit<-rpart(Species~.,data=iris_train,method="class")
fancyRpartPlot(fit)
pred<-predict(fit,newdata = iris_test)
table(pred,iris_test$Species)