test_that("is_mcmc, use", {
check_empty_beautier_folder()
expect_true(is_mcmc(create_mcmc()))
expect_true(is_mcmc(create_ns_mcmc()))
expect_false(is_mcmc("nonsense"))
expect_false(is_mcmc(NA))
expect_false(is_mcmc(NULL))
expect_false(is_mcmc(list(chain_length = 0)))
check_empty_beautier_folder()
})
test_that("is_mcmc: devious", {
g <- create_mcmc()
expect_true(is_mcmc(g))
# No 'chain_length'
h <- g[names(g) != "chain_length"]
expect_false(is_mcmc(h))
# Invalid 'chain_length'
h <- g
h$chain_length <- -123
expect_false(is_mcmc(h))
# No 'store_every'
h <- g[names(g) != "store_every"]
expect_false(is_mcmc(h))
# Invalid 'store_every': below -1
h <- g
h$store_every <- -123
expect_false(is_mcmc(h))
# Invalid 'store_every': at zero
h <- g
h$store_every <- 0
expect_false(is_mcmc(h))
# 'store_every' bigger than chain length
h <- g
h$store_every <- 100000
h$chain_length <- 10
expect_false(is_mcmc(h))
})
test_that("is_mcmc_nested_sampling, use", {
check_empty_beautier_folder()
expect_true(
is_mcmc_nested_sampling(create_ns_mcmc())
)
expect_false(is_mcmc_nested_sampling(create_mcmc()))
expect_false(is_mcmc_nested_sampling("nonsense"))
expect_false(is_mcmc_nested_sampling(NA))
expect_false(is_mcmc_nested_sampling(NULL))
expect_false(is_mcmc_nested_sampling(list(chain_length = 0)))
# Devious cases done by check_nested_sampling_mcmc
check_empty_beautier_folder()
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.