# Vital rates (survival and fecundity) modified based on habitat suitability.
if (FALSE) {
mod_fun <- modified_transition(survival_layer = "suitability", fecundity_layer = "suitability")
ls <- landscape(population = egk_pop, suitability = egk_hab, carrying_capacity = NULL)
pd <- population_dynamics(change = growth(egk_mat, transition_function = mod_fun))
simulation(landscape = ls, population_dynamics = pd, habitat_dynamics = NULL, timesteps = 20)
}
Run the code above in your browser using DataLab