tests/testthat/test_find_equilibrium.R

test_that("Demographic equilibrium", {

  init <- c(1000, 1000)
  N <- find_equilibrium(0, get_default_pars(), init)
  expect_true(all(N > 0))

})
rscherrer/speciomx documentation built on March 28, 2023, 8:49 p.m.