Update R_script.R