comment correction to plot4.R