Add R Stuff

Scripts for R