demo("chest",package="gRaven",echo=FALSE)
compile(chest)
chest
set.finding(chest,"asia","yes")
set.finding(chest,"dysp","no")
propagate(chest)
sapply(get.nodes(chest),function(x) get.belief(chest,x))
get.normalization.constant(chest)
initialize.domain(chest)
sapply(get.nodes(chest),function(x) get.belief(chest,x))
get.normalization.constant(chest)
Run the code above in your browser using DataLab