我使用e1071
生成了一个朴素贝叶斯分类器,并执行了以下操作:
test <- as.data.frame(readRDS('ContactsComplaints2014.rds'))
load(file='data2015.nb.RData')
prediction <- predict(data2015.nb,subset(test[1:3000,], select=-c(didComplain)))
在终端中,我输入了以下内容:
> prediction
然后得到了以下结果:factor(0)
Levels:
为什么?