Commit R script