(* Cost Efficiency Measurement *)



effAll = costEfficiency[w, x, y]



wlabor = Transpose[{Transpose[w][[1]], Transpose[w][[2]]}]

xlabor = Transpose[{Transpose[x][[1]], Transpose[x][[2]]}]



effLabor = costEfficiency[wlabor, xlabor, y]



ListPlot[Transpose[{effAll, effLabor}]]