commit r script 2