cg_simple <- caugi(
A %-->% B,
class = "DAG"
)
is_simple(cg_simple) # TRUE
cg_nonsimple <- caugi(
A %-->% B,
A %<->% B,
class = "UNKNOWN",
simple = FALSE
)
is_simple(cg_nonsimple) # FALSE
Run the code above in your browser using DataLab