R/delete_arcs_pa.R

In streamDAG: Analytical Methods for Stream DAGs

Defines functions delete.arcs.pa

Documented in delete.arcs.pa

delete.arcs.pa <- function(G, pa){
  w <- which(pa == 0)
  arcs <- attributes(A(G))$vnames[w]
  d <- delete.edges(G, arcs)
  d
}

Try the streamDAG package in your browser