distr6 (version 1.5.2)

testMesokurtic: assert/check/test/Mesokurtic

Description

Validation checks to test if Distribution is mesokurtic.

Usage

testMesokurtic(
  object,
  errormsg = paste(object$short_name, "is not mesokurtic")
)
checkMesokurtic(
  object,
  errormsg = paste(object$short_name, "is not mesokurtic")
)
assertMesokurtic(
  object,
  errormsg = paste(object$short_name, "is not mesokurtic")
)

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

# NOT RUN {
testMesokurtic(Binomial$new())
# }