Added plot1.R comments