tests/testthat/test_setMRFGlobalScaleHyperpriorNShifts.R

context("Tests setting of MRF hyperpriors")

test_that("MRF settings match known values", {
  expect_equal(0.002093737,
               setMRFGlobalScaleHyperpriorNShifts(100, "HSMRF"))
  expect_equal(0.009376335,
               setMRFGlobalScaleHyperpriorNShifts(100, "GMRF"))
})
revbayes/RevGadgets_new documentation built on Dec. 7, 2023, 10:02 p.m.