# NOT RUN {
# }
# NOT RUN {
ls <- landscape(population = egk_pop, suitability = egk_hab, carrying_capacity = egk_k)
pd <- population_dynamics(change = growth(egk_mat),
dispersal = kernel_dispersal(max_distance = 2000,
dispersal_kernel = exponential_dispersal_kernel(
distance_decay = 1000)),
density_dependence = ceiling_density())
sim <- simulation(landscape = ls,
population_dynamics = pd,
habitat_dynamics = NULL,
timesteps = 20)
# Plot the population trajectories by life-stage
plot(sim)
# Plot the spatial distributions of total populations for first nine timesteps
plot(sim, type = "raster", stages = 0, timesteps = 1:9)
# }
Run the code above in your browser using DataLab