install.packages("e1071")
library(e1071)
data(iris)
set.seed(123)
train_index <- sample(1:nrow(iris), 0.7 * nrow(iris))
train_data <- iris[train_index, ]
test_data <- iris[-train_index, ]
model <- naiveBayes(Species ~ ., data = train_data, laplace = 1)
predictions <- predict(model, test_data)
accuracy <- sum(predictions == test_data$Species) / nrow(test_data)
cat("Accuracy of Naïve Bayes:", accuracy, "\n")
table(predictions, test_data$Species)
