assert/check/test/Discrete

Validation checks to test if Distribution is discrete.

testDiscrete(object, errormsg = paste(object$short_name, "is not discrete"))

checkDiscrete(object, errormsg = paste(object$short_name, "is not discrete"))

assertDiscrete(object, errormsg = paste(object$short_name, "is not discrete"))

Arguments

object

Distribution

errormsg

custom error message to return if assert/check fails

Value

If check passes then assert returns invisibly and test/check

return TRUE. If check fails, assert stops code with error, check returns an error message as string, test returns FALSE.

Examples

testDiscrete(Binomial$new()) # FALSE
#> [1] TRUE