tests/testthat/helper-constraint-based-methods.R

In causalDisco: Tools for Causal Discovery on Observational Data

# ──────────────────────────────────────────────────────────────────────────────
# Helpers for testing constraint-based methods (pc, fci) across engines
# ──────────────────────────────────────────────────────────────────────────────

method_registry_constraint <- list(
  pc = list(fn = pc, engines = c("tetrad", "pcalg", "bnlearn")),
  fci = list(fn = fci, engines = c("tetrad", "pcalg"))
)

method_args <- function(method_name, engine) {
  args <- list(test = "fisher_z", alpha = 0.05)
  if (engine == "pcalg") {
    args$directed_as_undirected_knowledge <- TRUE
  }
  args
}

toy_knowledge <- function(df) {
  knowledge(
    df,
    X1 %-->% X2,
    X3 %-->% Z
  )
}