cg_empty <- caugi(class = "DAG")
is_empty_caugi(cg_empty) # TRUE
cg_non_empty <- caugi(
A %-->% B,
class = "DAG"
)
is_empty_caugi(cg_non_empty) # FALSE
cg_no_edges_but_has_nodes <- caugi(
A, B,
class = "DAG"
)
is_empty_caugi(cg_no_edges_but_has_nodes) # FALSE
Run the code above in your browser using DataLab