commiting R script