my.bn.inference(net.1,NA,NA,map.query=TRUE)
## $logp.evi
## [1] -1.260543
## $p
## [1] 0.2835
## $map
##      x1    x2    x3    x4
## 16 true false false false
## $evidence
## [1] ""
evidence
##     x1      x2      x3      x4 
##     NA      NA      NA "false"
my.bn.inference(net.1,NA,evidence,map.query=TRUE)
evidence[4]='true'
my.bn.inference(net.1,NA,evidence,map.query=TRUE)