Added a confusion matrix to R script