tests/testthat/test_get_gradient_burnin.R

test_that("Burn-in selection gradient should be negative", {

  pars <- get_default_pars()
  G <- get_gradient_burnin(0, pars)
  expect_true(G < 0)

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