Added a couple files. R code and doc to come