# 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"