R code and PNG images for Project 1