commit revised R code