Correction to plot4.R