# 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