马上要用朴素贝叶斯模型了，由于急于想知道数据的结果，因此最简单的希望能够有包来看一下数据，
我的数据结构大概——
1. 特征是有连续型的，有离散型的
2. 因变量参考的是我需要把因变量离散化的
3. 我不确定NaiveBayes是否可以跑混合数据（因为我的数据类型是混合的）
因此我使用了例子中的irisi数据集，并做了简单的修改，来看看NaiveBayes是否可以跑成功
library(naivebayes)
data(iris)
iris$hui <- NA
iris$hui[iris$Sepal.Width < 3] <- 'big'
iris$hui[iris$Sepal.Width == 3] <- 'big'
iris$hui[iris$Sepal.Width > 3] <- 'mouse'
iris <- iris[,-2]
ind_iris <- sample(1:nrow(iris), size = round(0.3 * nrow(iris)))
iris_train <- iris[-ind_iris, ]
iris_test <- iris[ind_iris, ]
nb_iris <- naive_bayes(Species ~ ., iris_train)
result <- predict(nb_iris, iris_test)
result
ac<- cbind(iris_test,result)
acure<- ac$Species == ac$result
ac2<- cbind(ac,acure)
nrow(ac2[ac2$result != ac2$Species,]) #计算不正确的数量
nrow(ac2)
f1 <- nrow(ac2[ac2$result != ac2$Species,]) / nrow(ac2)
f1
#head(predict(nb_iris, iris_test))
实践证明，是可以的