R/utils-amat.R

In vspinu/bnlearn: Bayesian network structure learning, parameter learning and inference

# convert a set of arcs to a (real) adjacency matrix.
arcs2amat = function(arcs, nodes) {

  .Call("arcs2amat",
        arcs = as.character(arcs),
        nodes = as.character(nodes))

}#ARCS2AMAT

# convert an adjacency matrix back to a set of arcs.
amat2arcs = function(a, nodes) {

  .Call("amat2arcs",
        amat = a,
        nodes = nodes)

}#AMAT2ARCS