More information is available in the vignette "Data Fusion with GeoFIS"
class
Examples
# more information about this example in the vignette "Data Fusion with GeoFIS"# section "Learning illustration"library(GeoFIS)data(fusion_cars)fusion <- NewFusion(fusion_cars)a <- NewFusionInput("a", NewMfTrapezoidalInf(4,20),"A")v <- NewFusionInput("v", NewMfTrapezoidalSup(100,500),"V")s <- NewFusionInput("s", NewMfTrapezoidalSup(120,220),"S")c <- NewFusionInput("c", NewMfTrapezoidalInf(6,16),"C")owa_aggreg <- NewFusionAggreg("score", NewAggregOwa(c(1,0,0,0)), a, v, s, c)fusion$aggregate <- owa_aggreg
fusion$perform()score <- fusion$output()["score"]print(score)