Create R_script.R