Usage
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")
)