correcting error in plot4.R script