Итак, у меня есть этот код, который создает нечеткую систему на основе правил:
install.packages("sets")
library(sets)
sets_options("universe", seq(1,100,0.5))
variables<-set(
temperature=fuzzy_partition(varnames=c(cold=30,
good=70, hot=90), sd=5),
humidity=fuzzy_partition(varnames=c(dry=30, good=60, wet=80), sd=3),
precipitations=fuzzy_partition(varnames=c(no.rain=30,
little.rain=60, rain=90), sd=7.5),
weather=fuzzy_partition(varnames=c(bad=40, ok=65, perfect=80), FUN=fuzzy_cone,
radius=10)
)
rules<-set(
fuzzy_rule(temperature %is% good && humidity %is% dry &&
precipitations %is% no.rain , weather %is% perfect),
fuzzy_rule(temperature %is% hot && humidity %is% wet &&
precipitations %is% rain, weather %is% bad),
fuzzy_rule(temperature %is% cold && weather %is% bad),
fuzzy_rule(temperature %is% good || humidity %is% good || precipitations %is%
little.rain, weather %is%ok),
fuzzy_rule(temperature %is% hot && precipitations %is% little.rain , weather %is% ok),
fuzzy_rule(temperature %is% hot && humidity %is% dry
&&precipitations %is% little.rain, weather %is% ok))
model<-fuzzy_system(variables, rules)
plot(model)
example<-fuzzy_inference(model,list(temperature=65,
humidity=0, precipitations=80)) //here is the error
plot(example)
Ошибка такова: "Ошибка в [[<-
(i$consequent, 1L, as.name("$")): объект типа "символ" не является подмножеством", и я не знаю, что это значит.
numeric(0)
, который меняет его наlist
и приводит к ошибке. - person akrun   schedule 12.01.2020