Validation checks to test if a given object is an R6 FuzzySet.

testFuzzySet(object, errormsg = "This is not an R6 FuzzySet object")

checkFuzzySet(object, errormsg = "This is not an R6 FuzzySet object")

assertFuzzySet(object, errormsg = "This is not an R6 FuzzySet object")

Arguments

object

object to test

errormsg

error message to overwrite default if check fails

Value

If check passes then assert returns object invisibly and test/check return TRUE. If check fails, assert stops code with error, check returns an error message as string, and test returns FALSE.

Examples

testFuzzySet(Set$new(2, 3))
#> [1] FALSE
testFuzzySet(list(Set$new(2), Set$new(3)))
#> [1] FALSE
testFuzzySet(Tuple$new(2, 3))
#> [1] FALSE
testFuzzySet(Interval$new())
#> [1] FALSE
testFuzzySet(FuzzySet$new(2, 0.1))
#> [1] TRUE
testFuzzySet(FuzzyTuple$new(2, 0.1))
#> [1] TRUE
testFuzzySet(ConditionalSet$new(function(x) x == 0))
#> [1] FALSE