testfile <- system.file("huginex", "chest_clinic.net", package = "gRain")
chest <- as.gmInstance(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