initial commit of R script and data file