Create TestNaiveBayes.R