朴素贝叶斯

[谢远涛]

4 朴素贝叶斯

# install.packages("e1071")
library(e1071)
data(iris)
dt<-iris
head(dt)
naiveBayes.model1<- naiveBayes(Species ~ Petal.Length + Petal.Width+Sepal.Length + Sepal.Width, dt)
naiveBayes.model1

预测结果

predict <- predict(naiveBayes.model1,newdata=dt) # 训练集数据

构建混淆矩阵

table <- table(actual=dt$Species,predict=predict)

计算误判概率

(err <- paste0(round((sum(table)-sum(diag(table)))*100/sum(table),2),"%"))