tests/testthat/test_is_stable.R

test_that("Zero should be evolutionarily unstable", {

  pars <- get_default_pars()
  expect_false(is_stable(0, pars, init = c(1000, 1000)))

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