first commit, working copy
Adding new R script