R/graph.R

Defines functions .processGraph

.processGraph <- function(dag) {
  moral     <- moralize(dag)
  tg        <- triangulate(moral)
  adj.moral <- as(moral, "matrix")

  list(adj.moral = adj.moral,
       cli.moral = qpGetCliques(adj.moral, verbose=F),
       cli.tg    = getCliques(tg),
       moral     = moral,
       tg        = tg)
}

Try the topologyGSA package in your browser

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

topologyGSA documentation built on July 7, 2021, 5:06 p.m.