Nothing
test_that("as_nlists.mcmc", {
expect_identical(
as_nlists(as_mcmc(nlist(x = 1))),
nlists(nlist(x = 1))
)
expect_identical(
as_nlists(as_mcmc(nlists(nlist(x = 1), nlist(x = 2)))),
nlists(nlist(x = 1), nlist(x = 2))
)
expect_identical(
as_nlists(as_mcmc(nlists(nlist(x = 1:2), nlist(x = 2:3)))),
nlists(nlist(x = 1:2), nlist(x = 2:3))
)
})
test_that("as_nlists.mcmc", {
nlists <- nlists(
nlist(x = 1, y = matrix(1:4, 2)),
nlist(x = 3, y = matrix(4:1, 2))
)
expect_equal(as_nlists(as_mcmc(nlists)), nlists)
})
test_that("as_nlists.mcmc.list 1 chain", {
nlists <- nlists(
nlist(x = 1, y = matrix(1:4, 2)),
nlist(x = 3, y = matrix(4:1, 2))
)
expect_equal(as_nlists(as_mcmc_list(nlists)), nlists)
expect_equal(nchains(as_nlists(as_mcmc_list(nlists))), 1L)
})
test_that("as_nlists.mcmc.list 2 chains", {
nlists <- nlists(
nlist(x = 1, y = matrix(1:4, 2)),
nlist(x = 3, y = matrix(4:1, 2))
)
nlists <- split_chains(nlists)
expect_equal(as_nlists(as_mcmc_list(nlists)), nlists)
expect_equal(nchains(as_nlists(as_mcmc_list(nlists))), 2L)
})
test_that("as_nlists.nlists", {
expect_identical(as_nlists(nlists()), nlists())
})
test_that("as_nlists.nlist", {
expect_identical(
as_nlists(nlist()),
structure(list(structure(list(), .Names = character(0), class = "nlist")), class = "nlists")
)
expect_identical(
as_nlists(nlist(x = 1)),
structure(list(structure(list(x = 1), class = "nlist")), class = "nlists")
)
})
test_that("as.nlists deprecated", {
rlang::scoped_options(lifecycle_verbosity = "quiet")
lifecycle::expect_deprecated(as.nlists(nlist(x = 1)))
expect_identical(
as.nlists(nlist(x = 1)),
as_nlists(nlist(x = 1))
)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.