# NOT RUN {
# Modify populations in all life-stages with fire intensity.
# }
# NOT RUN {
fire_mortal <- mortality(mortality_layer = "fire", stages = NULL)
ls <- landscape(population = egk_pop,
suitability = egk_hab,
carrying_capacity = egk_k,
"fire" = egk_fire)
pd <- population_dynamics(change = growth(egk_mat), modification = fire_mortal)
simulation(landscape = ls, population_dynamics = pd, habitat_dynamics = NULL, timesteps = 20)
# }
Run the code above in your browser using DataLab