# Simple DAG: A -> B -> C
cg <- caugi(
A %-->% B,
B %-->% C,
class = "DAG"
)
topological_sort(cg) # Returns c("A", "B", "C") or equivalent valid ordering
# DAG with multiple valid orderings
cg2 <- caugi(
A %-->% C,
B %-->% C,
class = "DAG"
)
# Could return c("A", "B", "C") or c("B", "A", "C")
topological_sort(cg2)
Run the code above in your browser using DataLab