committed plot1.R script