EpiNow2 (version 1.6.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 mean 3 and sd 2
dist2 <- Gamma(
  mean = Normal(3, 0.5), sd = Normal(2, 0.5), max = 20
)

# Multiple distributions
if (FALSE) {
  dist <- dist1 + dist2
  extract_single_dist(dist, 2)
}