# NOT RUN {
data(liver)
tree.init.p <- Initializer(dag=liver$dag, data=liver$data,
node.class=liver$node.class,
propagate = TRUE)
tree.post <- AbsorbEvidence(tree.init.p, c("Nr1i3", "chr1_42.65"), list(1,"1"))
marg <- Marginals(tree.post, c("HDL", "Ppap2a"))
marg$marginals$HDL
head(marg$marginals$Ppap2a)
# }
Run the code above in your browser using DataLab