Update working_script.R

updated assignment of human cost variable