# Example 1. Non-controllable input (POPULATION).
# Replication of results in Cooper, Seiford and Tone (2007, p.221)
data(Libraries)
# POPULATION (non-controllable input) is the 4th input.
data_example <- make_deadata(Libraries,
dmus = 1,
inputs = 2:5,
nc_inputs = 4,
outputs = 6:7)
result <- model_basic(data_example,
orientation = "io",
rts = "crs")
efficiencies(result)
targets(result)
# Example 2. Non-discretionary input (POPULATION).
data(Libraries)
# POPULATION (non-controllable input) is the 4th input.
data_example2 <- make_deadata(Libraries,
dmus=1,
inputs=2:5,
nd_inputs=4,
outputs=6:7)
result2 <- model_basic(data_example2,
orientation="io",
rts="crs")
efficiencies(result2)
targets(result2)
Run the code above in your browser using DataLab