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 May 2, 2019, 5:56 a.m.