Переменные предиктора R в коде не обрабатывают правильный ответ

Question

Я не слишком уверен, почему этот кусок кода не работает;была бы признательна за помощь!

Я перепробовал все и убедился, что IsHappy является фактором, поэтому я не очень уверен, почему он не работает.

happy = read.csv("happy.csv")
library(klaR)

happy$A1 = as.factor(happy$A1)
happy$A3 = as.factor(happy$A3)
happy$IsHappy = as.factor(happy$IsHappy)
happy.nb =NaiveBayes(IsHappy~A1+A3, data = happy)


happy.prediction = predict(happy.nb)
table(Actual = happy$IsHappy, Predicted = happy.prediction)

все аргументы должны иметьодинаковая длина

Answer 1

Исправлено. Буквально потратил дни на это, и это было исправлением:

table(Actual = spamdata2$IsHappy, Predicted = happy.prediction$class)

@ Джейсон: это была опечатка при публикации вопроса, теперь все исправлено.