Validation checks to test if Distribution is negative skew.
testNegativeSkew(
object,
errormsg = paste(object$short_name, "is not negative skew")
)
checkNegativeSkew(
object,
errormsg = paste(object$short_name, "is not negative skew")
)
assertNegativeSkew(
object,
errormsg = paste(object$short_name, "is not negative skew")
)
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
testNegativeSkew(Binomial$new())
#> [1] FALSE