EpiNow2 (version 1.7.1)

extract_single_dist: Extract a single element of a composite <dist_spec>

Description

Usage

extract_single_dist(x, i)

Value

A single dist_spec object

Arguments

x

A composite dist_spec object

i

The index to extract

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
if (FALSE) {
dist <- dist1 + dist2
extract_single_dist(dist, 2)
}