tests/testthat/test_get_gradient.R

test_that("Gradient is zero", {

  G <- get_gradient(0, get_default_pars(), c(1000, 1000))
  expect_equal(G, 0)

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