Update final_script.R

Conditional install and load of scales