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