added the R codes