# Example. Replication of results in Tone (2003), pp 10-11.
data("Tone2003")
data_example <- make_deadata(Tone2003,
ni = 1,
no = 2,
ud_outputs = 2)
result <- model_sbmeff(data_example,
rts = "vrs")
efficiencies(result)
targets(result)
Run the code above in your browser using DataLab