plot1.r

updated variable names