Corrected code in Plot1.R and Plot4.R