querygm(object, nodes = nodeNames(object), normalize = TRUE, type =
c("marginal", "joint", "conditional"), return="array", trace = 0)
setFinding(object, nodes=NULL, states=NULL, flist=NULL, propagate=TRUE)
retractFinding(object, nodes=NULL, propagate=TRUE)
getFinding(object)
pFinding(object)
cptable
testfile <- system.file("huginex", "chest_clinic.net", package = "gRain")
chest <- as.grain(loadHuginNet(testfile, trace=1))
print(class(chest))
qb <- querygm(chest)
qb
lapply(qb, as.numeric) # Safe
sapply(qb, as.numeric) # Risky
Run the code above in your browser using DataLab