Checked in R scripts and PNG files for project 1.