Test whether disturbance should be scheduled
scheduleDisturbance(disturbanceLayer, currentYear)
disturbanceLayer | a |
---|---|
currentYear | time of simulation |
Logical indicating whether to schedule a disturbance event
if (FALSE) { doEvent <- scheduleDisturbance(sim$rstCurrentBurn, time(sim), disturbanceType = "Burn") }