Added correct version of plot4.R