By using following packages
library(naivebayes) library(caret)
I create 2 models
#NAIVE-BAYES MODEL model_nb <- naive_bayes(Y~