Added in skeleton for plot1.R code