Я получаю сообщение об ошибке при попытке создать таблицу для оценки результатов моей модели 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, тестирование $ Winner):
все аргументы должны иметь одинаковую длину