Updated Rplot1.r