data("Fortune500")
data_Fortune <- make_deadata(datadea = Fortune500,
dmus = 1,
inputs = 2:4,
outputs = 5:6)
result <- model_multiplier(data_Fortune,
epsilon = 1e-6,
orientation = "io",
rts = "crs")
# results for General Motors and Ford Motor are not shown
# by deaR because the solution is infeasible
efficiencies(result)
multipliers(result)
Run the code above in your browser using DataLab