# Example 1.
# Replication of results in Golany and Roll (1989).
data("Golany_Roll_1989")
data_example <- make_deadata(datadea = Golany_Roll_1989[1:10, ],
inputs = 2:4,
outputs = 5:6)
result <- model_multiplier(data_example,
epsilon = 0,
orientation = "io",
rts = "crs")
efficiencies(result)
multipliers(result)
# Example 2.
# Multiplier model with infeasible solutions (See note).
data("Fortune500")
data_Fortune <- make_deadata(datadea = Fortune500,
inputs = 2:4,
outputs = 5:6)
result2 <- 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(result2)
multipliers(result2)
Run the code above in your browser using DataLab