testfile <- system.file("huginex", "chest_clinic.net", package = "gRain")
chest <- loadHuginNet(testfile, details=0)
qb <- querygrain(chest)
qb
lapply(qb, as.numeric) # Safe
sapply(qb, as.numeric) # Risky
Run the code above in your browser using DataLab