SVM交叉验证问题-表中的错误（testingsvmmodel，测试）：所有参数的长度必须相同

Question

尝试创建用于评估svm模型结果的表时出现错误。我想知道您是否可以看看，因为我已经花了数小时试图找出答案，但不能（对于这样的菜鸟感到抱歉）。我的模型如下：

smp_size <- floor(0.67 * nrow(Data))
set.seed(123)
train_ind <- sample(seq_len(nrow(Data)), size = smp_size)
training <- Data[train_ind, ]
testing <- Data[-train_ind, ]

svmmodel <- svm(Winner ~ Rank_Diff + Ace_Diff + DF_Diff + ServAc_Diff + 
WonServ_Diff + BreakPt_diff, data = training)

testingsvmmodel<- predict(svmmodel, data = testing)

svmtab <- table(testingsvmmodel, testing$Winner)

这是错误：

  

表中的错误（testingsvmmodel，testing $ Winner）：
        所有参数的长度必须相同