Create final_script.R

Clean code file that performs analysis end-to-end