tests/testthat/test_get_posterior_distribution.R

context("Testing get_posterior_distribution")

test_that("get_posterior_distribution triggers deprecation warning", {
  model <- make_model("X -> Y") |> update_model()
  expect_warning(CausalQueries:::get_posterior_distribution(model = model),
                 regexp = "is deprecated")
})

Try the CausalQueries package in your browser

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

CausalQueries documentation built on April 3, 2025, 7:46 p.m.