inst/roxygen-examples/dot-add_edges-example.R

In causalDisco: Tools for Causal Discovery on Observational Data

# add a block of forbidden edges using internal helper
data(tpc_example)

kn <- knowledge(tpc_example)

# add forbidden edges between youth_* and child_*
kn <- .add_edges(
  kn,
  "forbidden",
  from = c("youth_x3", "youth_x4"),
  to = c("child_x1", "child_x2")
)

print(kn)