混同行列-rを用いてr-でニューラルネットワークをテストする

このコードを使ってニューラルネットワークを作成しました

set.seed(9850)
group<-runif(nrow(bc))
bc<-bc[order(group), ]
bc_train<-bc[1:178, ]
bc_test<-bc[179:198, ]
library(nnet)
nn_bc<-nnet(V2~., data=bc_train, size=10)
pred_bc<-predict(nn_bc, bc_test, type="class")
table(pred_bc, bc_test$V2)

ただし、コードはエラーなしで実行されます。最後の行を使ってモデルをテストすると、混同行列を与える表が表示されます。これには2つのカテゴリ変数があるという事実が無視され、次のようになります。

pred_bc  N  R
N 13  7

他のデータセットで使用しているので、自分のコードに何が問題があるのか​​わかりません。

回答：

ニューラルネットワークは、出力として１つのクラスのみを予測した。 印刷してみます

    factor(pred_bc)

N以外の他のレベルがあるかどうかを確認する。