project 1

plots and R code