Created the 4th and last R file and image.