Added R scripts and pngs for plots