# Replication of results in Boscá, Liern, Sala and Martínez (2011, p.125)
data("Leon2003")
data_example <- make_deadata_fuzzy(datadea = Leon2003,
inputs.mL = 2,
inputs.dL = 3,
outputs.mL = 4,
outputs.dL = 5)
result <- modelfuzzy_kaoliu(data_example,
kaoliu_modelname = "basic",
alpha = seq(0, 1, by = 0.1),
orientation = "io",
rts = "vrs")
efficiencies(result)
Run the code above in your browser using DataLab