# Example. Replication of results in Simar and Wilson (1998, p.59)
data("Electric_plants")
data_example <- make_deadata(Electric_plants,
dmus = 1,
ni = 3,
no = 1)
result <- model_basic(data_example,
orientation = "io",
rts = "vrs")
efficiencies(result)
Run the code above in your browser using DataLab