.devel/testthat/test-fuzzy.integrals.R

In Rexamine/agop: Aggregation Operators and Preordered Sets

require('testthat')


# test_that('fuzzy integrals', {
#    expect_equivalent(int.choquet(1:10, function(c) mean(c)),
#                      int.choquet(10:1, function(c) mean(c)))
#
#    x <- c(1,9,3,8,2,1)
#    expect_equivalent(int.choquet(x, function(c) mean(c)), mean(x))
#    expect_equivalent(int.sugeno(c(10,10,10,0,0,0,0), function(c) sum(c)), 3)
#    expect_equivalent(int.sugeno(c(0,0,0,0,10,10,10), function(c) sum(c)), 3)
# })