testowanie sieci neuronowych w r- z macierzą dezorientacji - r

Użyłem tego kodu do stworzenia sieci neuronowej

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)

Kod działa bez podawania jakichkolwiek błędówkiedy testuję model z ostatnią linią, podając mi tabelę, na której podaje się matrycę zamieszania, zdaje się ignorować fakt, że istnieją dwie zmienne kategorialne i produkuje to:

pred_bc  N  R
N 13  7

Nie widzę, co jest nie tak z moim kodem, ponieważ użyłem go w innych zestawach danych.

Odpowiedzi:

Sieć neuronowa przewidziała tylko jedną klasę jako wyjście. Spróbuj drukować

    factor(pred_bc)

aby sprawdzić, czy istnieją inne poziomy inne niż N.