# Example. Replication of results in Wu,Tsai and Zhou (2011)
data("Hotels")
data_hotels <- make_deadata(Hotels,
dmus = 1,
inputs = 2:5,
outputs = 6:8)
result <- model_nonradial(data_hotels,
orientation = "oo",
rts = "vrs")
efficiencies(result)
Run the code above in your browser using DataLab