# Example. Replication of results in Ruggiero (2007).
data("Ruggiero2007")
# the second input is a non-discretionary input
datadea <- make_deadata(Ruggiero2007,
ni = 2,
no = 1,
nd_inputs = 2)
result <- model_basic(datadea,
orientation = "io",
rts = "crs")
efficiencies(result)
slacks(result)
Run the code above in your browser using DataLab