Added plots and R scripts.
Modified plot4.R