fixed plot4.R comments