# Example. Replication of results in Aparicio et al. (2007).
data("Airlines")
data_example <- make_deadata(Airlines,
inputs = 4:7,
outputs = 2:3)
result <- model_sbmeff(data_example)
efficiencies(result)
result2 <- model_sbmeff(data_example,
kaizen = TRUE)
efficiencies(result2)
Run the code above in your browser using DataLab