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)))
)
parameters(dist)
# Distribution-valued parameters (such as the inflated distribution
# below) are returned as-is by default.
infl_dist <- dist_inflated(dist_negative_binomial(10, 0.6), prob = 0.5)
parameters(infl_dist)
# With recursive = TRUE, the inflated distribution's parameters are
# expanded into a flat data frame.
parameters(infl_dist, recursive = TRUE)
Run the code above in your browser using DataLab