context("Testing misc")
testthat::skip_on_cran()
testthat::test_that(
desc = "sampling_args user_adapt_delta",
code = {
object <- NULL
user_dots <- list(control = list(user_adapt_delta = 10))
out <- CausalQueries:::set_sampling_args(object = object,
user_dots = user_dots,
user_adapt_delta = 10)
expect_equal(out$control$adapt_delta, 10)
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.