Intrusion-Pathway Expression for the Water Supply Example

A quoted R expression representing contamination introduced through an intrusion into the water distribution system. It calculates the ingested dose and individual infection probability conditional on an intrusion.

Usage

intrusion_exp

Format

A quoted R expression that creates the following model nodes:

intrusion_dose

Daily ingested dose conditional on an intrusion.

p_inf_given_intrusion

Individual daily probability of infection conditional on an intrusion.

Source

Created for the illustrative water-supply example.

Details

The probability and frequency of intrusion events are not applied inside this expression. They can subsequently be incorporated with trial_totals() using intrusion_prob and exposure_days from water_data or water_group_data.

See also

water_data, water_group_data, water_data_keys, water_group_data_keys, water_mctable, treatment_exp, eval_module(), trial_totals()

Examples

intrusion_exp
#> {
#>     intrusion_dose <- intrusion_conc * water_volume
#>     p_inf_given_intrusion <- 1 - exp(-dose_response_r * intrusion_dose)
#> }

intrusion_module <- eval_module(
  exp = list(intrusion = intrusion_exp),
  data = water_data,
  mctable = water_mctable,
  data_keys = water_data_keys
)
#> intrusion evaluated
#> mcmodule created (expressions: intrusion)

intrusion_group_module <- eval_module(
  exp = list(intrusion = intrusion_exp),
  data = water_group_data,
  mctable = water_mctable,
  data_keys = water_group_data_keys
)
#> intrusion evaluated
#> mcmodule created (expressions: intrusion)