Project2 R code & graphs