add r script

add r script