I generated a naive Bayes classifier using e1071
and then ran the following
test <- as.data.frame(readRDS('ContactsComplaints2014.rds'))
load(file='data2015.nb.RData')
prediction <- predict(data2015.nb,subset(test[1:3000,], select=-c(didComplain)))
In the terminal I entered
> prediction
and got
factor(0)
Levels:
Why?