add r scipt