# Example. Replication of results in Tone (2001, p. 505)
data("Tone2001")
data_example <- make_deadata(Tone2001,
ni = 2,
no = 2)
result <- model_sbmeff(data_example,
orientation = "no",
rts = "crs")
efficiencies(result)
slacks(result)
Run the code above in your browser using DataLab