一、引例
C1:buys_computer=‘yes’
C2:buys_computer=‘no’
X=(age<=30,income=medium,student=yes,credit_rating=fair)
二、R语言实现
使用
e1071
包的naiveBayes
函数
library(e1071)
data(iris)
m <- dim(iris)[1]
val <- sample(1:m, size =round(m/3), replace = FALSE, prob= rep(1/m, m))
trainSet <- iris[-val,]
testSet <- iris[val,]
nby<-naiveBayes(Species~.,trainSet)
testPre<-predict(nby,testSet)