Create r_script