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) # RiskyRun the code above in your browser using DataLab