Usage
testMultivariate(object, errormsg = paste(object$short_name,
"is not multivariate"))checkMultivariate(object, errormsg = paste(object$short_name,
"is not multivariate"))
assertMultivariate(object, errormsg = paste(object$short_name,
"is not multivariate"))