Corrections to plot4.R from last month