Commit 1

Commit the plots and R code