demo(chest,package="gRaven")
chest
chest2<-clone.domain(chest)
chest2
set.finding(chest,"asia","yes")
set.finding(chest,"dysp","no")
propagate(chest)
get.belief(chest,"asia")
get.belief(chest,"tub")
propagate(chest2)
get.belief(chest2,"asia")
get.belief(chest2,"tub")
list.domains()
Run the code above in your browser using DataLab