Usage
testContinuous(
  object,
  errormsg = paste(object$short_name, "is not continuous")
)checkContinuous(
  object,
  errormsg = paste(object$short_name, "is not continuous")
)
assertContinuous(
  object,
  errormsg = paste(object$short_name, "is not continuous")
)