updated r-code