Updated to create plot1 in R file