Cost_Identification_Main.R produces:
-Table 8
-Table 19