tests/testthat/test_dispersal_proportion_functions.R

In skiptoniam/dlmpr: Spatially- and Temporally-Explicit Population Simulator

context('dispersal_proportion_functions-class')

test_that('dispersal proportion functions class works', {
  
  library(raster)
  library(future)
  
  landscape <- landscape(population = egk_pop,
                         suitability = egk_hab,
                         carrying_capacity = egk_k)
  
  pop_dyn <- population_dynamics(change = growth(transition_matrix = egk_mat),
                                 dispersal = kernel_dispersal(exponential_dispersal_kernel(distance_decay = 8000),
                                                              dispersal_proportion = density_dependence_dispersing()),
                                 modification = NULL,
                                 density_dependence = NULL)
  
  
  sim <- simulation(landscape = landscape,
                    population_dynamics = pop_dyn,
                    habitat_dynamics = NULL,
                    timesteps = 10,
                    replicates = 3,
                    verbose = FALSE)
  
  
})