# S3 method for class 'distribution'
family(object, ...)
dist <- c(
dist_normal(1:2),
dist_poisson(3),
dist_multinomial(size = c(4, 3),
prob = list(c(0.3, 0.5, 0.2), c(0.1, 0.5, 0.4)))
)
family(dist)
#> [1] "normal" "normal" "poisson" "multinomial" "multinomial"