query[1]='true' my.bn.inference(net.1,query) ## $logp.evi ## x[1] 0 ## $logp.query ## [1] -0.4620355 ## $p ## [1] 0.63 ## $evidence ## [1] "" ## $query ## [1] "x1=true,x2=false"