first commit of R script