R/wrap.dSep.R

Defines functions wrap.dSep

wrap.dSep <- function(G, x, y, z) {
  if (identical(x, y)) return(FALSE)
  if (length(x) == 0 || length(y) == 0) {
    return(TRUE)
  }
  else return(dSep(G, x, y, z))
}

Try the causaleffect package in your browser

Any scripts or data that you put into this service are public.

causaleffect documentation built on July 14, 2022, 5:07 p.m.