Dm
install.packages("e1071") library(e1071) data("iris") head(iris) tail(iris) print(iris) summary(iris) index=sample(2,nrow(iris), prob=c(0.9,0.1), replace=TRUE) set.seed(1234) train=iris[index==1,] train summary(train) test-iris[index=2,] test summary(test) model-naiveBayes (Species~., data=train) pred-predict(model,test) table(pred) table(test$Species, pred)