Is there an R function to handle naive bayes problem?

Question

install.packages("e1071") library(e1071) naiveB_model <- naiveBayes(training[,1:6], training[[7]]) naiveB_model

(nb_predictions <- predict(naiveB_mode