## Not run:
#
# tf <- system.file("huginex", "chest_clinic.net", package = "gRain")
# chest <- loadHuginNet(tf, details=1)
#
# simulate(chest,n=10)
#
# chest2 <- setFinding(chest, c("VisitToAsia", "Dyspnoea"),
# c("yes","yes"))
#
# simulate(chest2,n=10)
# ## End(Not run)
Run the code above in your browser using DataLab