querygm(object, nodes = nodeNames(object), normalize = TRUE, type =
c("marginal", "joint", "conditional"), return="array", trace = 0)
enterEvidence(object, nodes=NULL, states=NULL, evlist=NULL, propagate=TRUE)
retractEvidence(object, nodes=NULL, propagate=TRUE)
evidence(object)
pevidence(object)
cptable