tests/testthat/helper-metric-helpers.R

make_amat <- function(n, edges = list()) {
  m <- matrix(0, n, n)
  for (e in edges) {
    m[e[1], e[2]] <- 1
  }
  m
}

Try the causalDisco package in your browser

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

causalDisco documentation built on April 13, 2026, 5:06 p.m.