This function propagates the discrete compartment of a clustertree
object.
PropagateDBN(tree)
an initialized clustertree
object
a clustertree
object
The discrete compartment must be propagted to get the joint distributions of discrete variables in each discrete clusters. A cluster tree must be propagated before absorbing evidence and making queries.
data(liver)
cst <- ClusterTreeCompile(dag=liver$dag, node.class=liver$node.class)
models <- LocalModelCompile(data=liver$data, dag=liver$dag, node.class=liver$node.class)
tree.init <- ElimTreeInitialize(tree=cst$tree.graph,
dag=cst$dag,
model=models,
node.sets=cst$cluster.sets,
node.class=cst$node.class)
tree.init$propagated
tree.init.p <- PropagateDBN(tree.init)
tree.init.p$propagated
Run the code above in your browser using DataLab