data("Guo_Tanaka_2001")
data_example <- make_deadata_fuzzy(Guo_Tanaka_2001,
dmus = 1,
inputs.mL = 2:3,
inputs.dL = 4:5,
outputs.mL = 6:7,
outputs.dL = 8:9)
result <- modelfuzzy_guotanaka(data_example,
h = seq(0, 1, by = 0.1),
orientation = "io")
efficiencies(result)
Run the code above in your browser using DataLab