cg_acyclic <- caugi(
A %-->% B,
B %-->% C,
class = "DAG"
)
is_acyclic(cg_acyclic) # TRUE
cg_cyclic <- caugi(
A %-->% B,
B %-->% C,
C %-->% A,
class = "UNKNOWN"
)
is_acyclic(cg_cyclic) # FALSE
Run the code above in your browser using DataLab