# NOT RUN {
data(chest)
dag <- chest$dag
node.class <- rep(TRUE, length(dag@nodes))
names(node.class) <- dag@nodes
tree.init.p <- Initializer(dag=dag, data=chest$data,
node.class=node.class,
propagate=TRUE)
# joint distribution
FactorQuery(tree=tree.init.p, vars=c("tub", "xray", "dysp", "asia"), mode="joint")
# conditional distribution
FactorQuery(tree=tree.init.p, vars=c("xray"), mode="conditional")
# }
Run the code above in your browser using DataLab