extract_single_dist function

Extract a single element of a composite <dist_spec>

Description

extract_single_dist(x, i)

Arguments

• x: A composite dist_spec object
• i: The index to extract

Returns

A single dist_spec object

Examples

dist1 <- LogNormal(mean = 1.6, sd = 0.5, max = 20)

# An uncertain gamma distribution with shape and rate normally distributed
# as Normal(3, 0.5) and Normal(2, 0.5) respectively
dist2 <- Gamma(
  shape = Normal(3, 0.5),
  rate = Normal(2, 0.5),
  max = 20
)

# Multiple distributions
## Not run:

dist <- dist1 + dist2
extract_single_dist(dist, 2)
## End(Not run)