Usage
testDistribution(
  object,
  errormsg = paste(object, "is not an R6 Distribution object")
)checkDistribution(
  object,
  errormsg = paste(object, "is not an R6 Distribution object")
)
assertDistribution(
  object,
  errormsg = paste(object, "is not an R6 Distribution object")
)