Create working_script.R

First commit with initial workings