tests/testthat/test-get_razzo_mcmc.R

test_that("use", {
  mcmc <- get_razzo_mcmc(model_type = "generative")
  expect_equal(mcmc$tracelog$log_every, get_razzo_mcmc_store_every())
  expect_equal(mcmc$treelog$log_every, get_razzo_mcmc_store_every())
})
richelbilderbeek/razzo documentation built on March 10, 2021, 1:17 p.m.