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"))
})

Try the RevGadgets package in your browser

Any scripts or data that you put into this service are public.

RevGadgets documentation built on Nov. 17, 2023, 1:07 a.m.