Skip to contents

The companion of fire_cohort_killed() for species with a GroundFireKill. Where the value is NA the answer is fire_cohort_killed()'s, as 0 or 1. Where a species has a value, Dynamic Fire takes it out of the damage table below severity 5: in each burned cell all its cohorts die together with that probability, whatever their age. This returns that probability.

Usage

fire_cohort_mortality(
  severity,
  age,
  longevity,
  tolerance,
  fire_damage_table,
  ground_fire_kill = NA_real_,
  engine_rule = FALSE
)

Arguments

severity

Numeric. Severity class: a severity map's value minus 2.

age, longevity, tolerance

Numeric. The cohort's age, and its species' longevity and fire tolerance. Each has length 1 or the length of severity.

fire_damage_table

data.frame. The FireDamageTable, in defaultFireDamageTable()'s column order: the percentage of longevity first, severity minus tolerance second. Rows may be in any order.

ground_fire_kill

Numeric. The species' GroundFireKill, between 0 and 1, or NA for none. Length 1 or the length of severity.

engine_rule

Logical. Make the age test in single precision, as the extension does?

Value

Numeric, one per severity: the probability that the cohort dies.

Details

Severity 5 gives 1. Severity 1 to 4 gives ground_fire_kill. Severity 0, a burned cell in which no cohort was damaged, gives 0. A ground_fire_kill of 0 is a value (the species leaves the table and never dies below severity 5), not an absent one.

Examples

## A species that dies below severity 5 in 30 % of burned cells, at any age.
fire_cohort_mortality(c(0, 1, 4, 5), 600, 650, 1, defaultFireDamageTable(), 0.3)
#> [1] 0.0 0.3 0.3 1.0