Create R_script