add r script