R scripts and pngs for assignment