## Not run:
# dataset <- BNDataset("file.header", "file.data")
# bn <- BN(dataset)
# ie <- InferenceEngine(bn)
# ie <- belief.propagation(ie)
#
# observations(ie) <- list("observed.vars"=("A","G","X"), "observed.vals"=c(1,2,1))
# belief.propagation(ie)
# ## End(Not run)
Run the code above in your browser using DataLab