Daniel@0: function bnet = mk_qmr_bnet(G, inhibit, leak, prior, tabular_findings, onodes)
Daniel@0: % MK_QMR_BNET Make a QMR model
Daniel@0: % bnet = mk_qmr_bnet(G, inhibit, leak, prior)
Daniel@0: %
Daniel@0: % G(i,j) = 1 iff there is an arc from disease i to finding j
Daniel@0: % inhibit(i,j) = inhibition probability on i->j arc
Daniel@0: % leak(j) = inhibition prob. on leak->j arc
Daniel@0: % prior(i) = prob. disease i is on
Daniel@0: % tabular_findings = 1 means multinomial leaves (ignores leak/inhibit params)
Daniel@0: %   = 0 means noisy-OR leaves (default = 0)
Daniel@0: 
Daniel@0: if nargin < 5, tabular_findings = 0; end
Daniel@0: 
Daniel@0: [Ndiseases Nfindings] = size(inhibit);
Daniel@0: N = Ndiseases + Nfindings;
Daniel@0: finding_node = Ndiseases+1:N;
Daniel@0: ns = 2*ones(1,N);
Daniel@0: dag = zeros(N,N);
Daniel@0: dag(1:Ndiseases, finding_node) = G;
Daniel@0: if nargin < 6, onodes = finding_node; end
Daniel@0: bnet = mk_bnet(dag, ns, 'observed', onodes);
Daniel@0: 
Daniel@0: for d=1:Ndiseases
Daniel@0:   CPT = [1-prior(d) prior(d)];
Daniel@0:   bnet.CPD{d} = tabular_CPD(bnet, d, CPT');
Daniel@0: end
Daniel@0: 
Daniel@0: for i=1:Nfindings
Daniel@0:   fnode = finding_node(i);
Daniel@0:   ps = parents(G, i);
Daniel@0:   if tabular_findings
Daniel@0:     bnet.CPD{fnode} = tabular_CPD(bnet, fnode); 
Daniel@0:   else
Daniel@0:     bnet.CPD{fnode} = noisyor_CPD(bnet, fnode, leak(i), inhibit(ps, i));
Daniel@0:   end
Daniel@0: end
Daniel@0: 
Daniel@0: 
Daniel@0: 
Daniel@0: 
Daniel@0: