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