我使用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:
为什么?
答案 0 :(得分:3)
您需要将要分类的类的名称标记为as.factor()
。然后它会工作。