tan.backend

function (data, training, explanatory, whitelist, blacklist,
    mi, root, debug)
{
    estimator = 1L
    nodes = c(training, explanatory)
    res = empty.graph(nodes)
    class.arcs = matrix(c(rep(training, length(explanatory)),
        explanatory), ncol = 2, byrow = FALSE)
    chow.liu.arcs = chow.liu.backend(x = minimal.data.frame.column(data,
        explanatory), nodes = explanatory, estimator = estimator,
        whitelist = whitelist, blacklist = blacklist, conditional = minimal.data.frame.column(data,
            training, drop = TRUE), debug = debug)
    chow.liu.arcs = .Call("tree_directions", arcs = chow.liu.arcs,
        nodes = explanatory, root = root, debug = FALSE)
    res$arcs = arcs.rbind(class.arcs, chow.liu.arcs)
    res$nodes = cache.structure(nodes, arcs = res$arcs)
    class(res) = c("bn.tan", "bn")
    return(res)
}