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