Update working_script.R

Added summary by economic cost and began preparation for joint cost