plot1.r typo correction