Intial commit with .R script and final file.