R/descendants.R

In causaleffect: Deriving Expressions of Joint Interventional Distributions and Transport Formulas in Causal Models

descendants <- function(node, G, topo) {
  de.ind <- unique(unlist(igraph::neighborhood(G, order = igraph::vcount(G), nodes = node, mode = "out")))
  de <- igraph::V(G)[de.ind]$name
  de <- de %ts% topo
  return(de)
}