Initial commit of first R script