Commiting R Script