Is the caugi graph a CPDAG?

Checks if the given caugi graph is a Complete Partially Directed Acyclic Graph (CPDAG).

Usage

is_cpdag(cg)

Arguments

cg

A caugi object.

Value

A logical value indicating whether the graph is a CPDAG.

See also

Other queries: ancestors(), children(), descendants(), edge_types(), edges(), exogenous(), is_acyclic(), is_caugi(), is_dag(), is_empty_caugi(), is_pdag(), is_ug(), markov_blanket(), neighbors(), nodes(), parents(), same_nodes(), subgraph()

Examples

cg_cpdag <- caugi(
  A %---% B,
  A %-->% C,
  B %-->% C,
  class = "PDAG"
)
is_cpdag(cg_cpdag) # TRUE
#> [1] TRUE

cg_not_cpdag <- caugi(
  A %---% B,
  A %---% C,
  B %-->% C,
  class = "PDAG"
)
is_cpdag(cg_not_cpdag) # FALSE
#> [1] FALSE