Added results plot to R code