Validation checks to test if a given object is an R6 Interval.
testInterval(object, errormsg = "This is not an R6 Interval object") checkInterval(object, errormsg = "This is not an R6 Interval object") assertInterval(object, errormsg = "This is not an R6 Interval object")
| object | object to test |
|---|---|
| errormsg | error message to overwrite default if check fails |
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.
testInterval(Set$new(2, 3)) #> [1] FALSE testInterval(list(Set$new(2), Set$new(3))) #> [1] FALSE testInterval(Tuple$new(2, 3)) #> [1] FALSE testInterval(Interval$new()) #> [1] TRUE testInterval(FuzzySet$new(2, 0.1)) #> [1] FALSE testInterval(FuzzyTuple$new(2, 0.1)) #> [1] FALSE testInterval(ConditionalSet$new(function(x) x == 0)) #> [1] FALSE