Committing R script