add r code
changes