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"))
Distribution
custom error message to return if assert/check fails
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
.
# NOT RUN {
testPositiveSkew(Binomial$new())
# }
Run the code above in your browser using DataLab