tf <- system.file("huginex", "chest_clinic.net", package = "gRain")
chestf <- loadHuginNet(tf, trace=1)
chest <- as.grain(chestf)
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