Added plot1.R and png