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