Finish Plot2.R