Naive Bayes Code In R