proj1 plots and R code