Update final_script.R

Added conditional creation of "figures" sub-dir