tests/testthat/test-grasp.R

In causalDisco: Tools for Causal Discovery on Observational Data

test_that("boss_fci Tetrad algorithm run without error and return correct classes", {
  skip_if_no_tetrad()

  test_that("grasp with raskutti uhler works correctly.", {
    skip(
      "grasp Tetrad with raskutti uhler doesn't respect tier knowledge. See #1954 in Tetrad."
    )
    test_tier_knowledge(
      alg_fun = grasp,
      engine = "tetrad",
      score = "sem_bic",
      test = "fisher_z",
      alg_args = list(
        covered_depth = 3,
        singular_depth = 2,
        ordered_alg = TRUE,
        raskutti_uhler = TRUE,
        use_data_order = FALSE,
        num_starts = 3
      )
    )
  })

  run_all_tests(
    alg_fun = grasp,
    engine = "tetrad",
    score = "rank_bic",
    test = "poisson_prior",
    alg_args = list(
      covered_depth = 3,
      singular_depth = 2,
      ordered_alg = TRUE,
      raskutti_uhler = FALSE,
      use_data_order = FALSE,
      num_starts = 3
    ),
    test_args = list(
      poisson_lambda = 2,
      singularity_lambda = 0.1,
      gamma = 0.5,
      penalty_discount = 3
    )
  )
})