# Example. Replication of results in Hua and Bian (2007).
data("Hua_Bian_2007")
# The third output is an undesirable output
data_example <- make_deadata(Hua_Bian_2007,
ni = 2,
no = 3,
ud_outputs = 3)
# Translation parameter (vtrans_o) is set to 1500
result <- model_basic(data_example,
orientation = "oo",
rts = "vrs",
vtrans_o = 1500)
eff <- efficiencies(result)
1 / eff # results M5 in Table 6-5 (p.119)
Run the code above in your browser using DataLab