Create the_script.R