initial commit of R script
initial commit of R script