r言語predict関数を使用すると結果が1行消えてしまう。

Question

以下のサイトを参考にsvmでtable表示をしたいとおもっているのですが、
最後のtable表示のみ以下のエラーがでて表示されません。
なぜ、でしょうか。

resultとwet_testを比較した結果。
wet_testが2190行
resultの行数が2189行が、
原因であることが分かりましたが、
なぜ、このような結果になったか分かりません。

このコマンドでresultの行数を確認すると、2189行になってしまいます。
result <- predict(wet_model, wet_test)

【エラー文】
table(result, wet_test$V23) でエラー:
全ての引数は同じ長さでなければなりません
http://qiita.com/kokumura/items/64eefc8594995b1d0713