Nothing
context("Fusion")
test_that("new fusion aggreg error", {
# WAM weights error
expect_error(NewFusionAggreg("foo", NewAggregWam(c(0, 1)), Node$new("c1"), Node$new("c2"), Node$new("c3")))
expect_no_error(NewFusionAggreg("foo", NewAggregWam(c(0, 1)), Node$new("c1"), Node$new("c2")))
# OWA weights error
expect_error(NewFusionAggreg("foo", NewAggregOwa(c(0, 1)), Node$new("c1"), Node$new("c2"), Node$new("c3")))
expect_no_error(NewFusionAggreg("foo", NewAggregOwa(c(0, 1)), Node$new("c1"), Node$new("c2")))
# Fis inputs error
fis <- NewFis()
fis$add_input(NewFisIn())
fis$add_input(NewFisIn())
fis$add_output(NewFisOutCrisp())
expect_error(NewFusionAggreg("foo", NewAggregFis(fis), Node$new("c1"), Node$new("c2"), Node$new("c3")))
expect_no_error(NewFusionAggreg("foo", NewAggregFis(fis), Node$new("c1"), Node$new("c2")))
# no error with function aggreg
expect_no_error(NewFusionAggreg("foo", NewAggregFunction(mean), Node$new("c1"), Node$new("c2")))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.