Adding R Script for making confusion plots