tests/testthat/test_find_singularities.R

test_that("Zero should be a singularity", {

  pars <- get_default_pars()
  xeq <- find_singularities(from = -1, to = 1, pars, init = c(1000, 1000))
  expect_equal(xeq, 0)

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