Added the R script to create the naive bayers and predict the test data