Is a backdoor set valid?

Checks whether Z is a valid backdoor adjustment set for X --> Y.

Usage

is_valid_backdoor(
  cg,
  X = NULL,
  Y = NULL,
  Z = NULL,
  X_index = NULL,
  Y_index = NULL,
  Z_index = NULL
)

Arguments

cg

A caugi_graph object.

X, Y

Single node names.

Z

Optional node set for conditioning

X_index, Y_index, Z_index

Optional 1-based indices.

Value

Logical value indicating if backdoor is valid or not.

See also

Other adjustment: adjustment_set(), all_backdoor_sets(), d_separated()

Examples

cg <- caugi_graph(
  C %-->% X,
  X %-->% F,
  X %-->% D,
  A %-->% X,
  A %-->% K,
  K %-->% Y,
  D %-->% Y,
  D %-->% G,
  Y %-->% H,
  class = "DAG"
)

is_valid_backdoor(cg, X = "X", Y = "Y", Z = NULL) # FALSE
#> [1] FALSE
is_valid_backdoor(cg, X = "X", Y = "Y", Z = "K") # TRUE
#> [1] TRUE
is_valid_backdoor(cg, X = "X", Y = "Y", Z = c("A", "C")) # TRUE
#> [1] TRUE