Project #1 Commit with R code and plots