Correction in plot1.R