Helper function for quickly combining distributions into a Matdist.

# S3 method for Matdist
c(..., decorators = NULL)

Arguments

...

matrix distributions to be concatenated.

decorators

If supplied then adds given decorators, otherwise pulls them from underlying distributions.

Value

Matdist

Examples

# create three matrix distributions with different column names
mats <- replicate(3, {
  pdf <- runif(200)
  mat <- matrix(pdf, 20, 10, FALSE, list(NULL, sort(sample(1:20, 10))))
  mat <- t(apply(mat, 1, function(x) x / sum(x)))
  as.Distribution(mat, fun = "pdf")
})
do.call(c, mats)
#> Matdist(60x17)