# Example of kernel-based dispersal where only the 3rd life stage
# disperses up to a maximum distance of 2000 meters. Dispersal is affected
# by both habitat suitability and carrying capacity (default). The default
# dispersal kernel uses a decay parameter to control how far populations disperse.
if (FALSE) {
kb_dispersal <- kernel_dispersal(max_distance = 2000,
dispersal_kernel = exponential_dispersal_kernel(distance_decay = 1000))
ls <- landscape(population = egk_pop, suitability = egk_hab, carrying_capacity = egk_k)
pd <- population_dynamics(change = growth(egk_mat),
dispersal = kb_dispersal,
density_dependence = ceiling_density())
simulation(landscape = ls, population_dynamics = pd, habitat_dynamics = NULL, timesteps = 20)
}
Run the code above in your browser using DataLab