tests/testthat/test_set_parameter_matrix.R

context("Testing summary commands for set_parameter_matrix")

testthat::skip_on_cran()

testthat::test_that(

  desc = "Read P.",

  code = {
    model <- make_model("X -> Y")
    model <- set_parameter_matrix(model, P = get_parameter_matrix(model))
    expect_true(!is.null(model$P))
  }
)

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.