To check out this repository please hg clone the following URL, or open the URL using EasyMercurial or your preferred Mercurial client.

Statistics Download as Zip
| Branch: | Revision:

root / _FullBNT / BNT / CPDs / @tabular_CPD / update_ess.m @ 8:b5b38998ef3b

History | View | Annotate | Download (538 Bytes)

1 
function CPD = update_ess(CPD, fmarginal, evidence, ns, cnodes, hidden_bitv)
2 
% UPDATE_ESS Update the Expected Sufficient Statistics of a tabular node.
3 
% function CPD = update_ess(CPD, fmarginal, evidence, ns, cnodes, hidden_bitv)
4 

    		
  

  

    
      5
    
    
      
dom = fmarginal.domain;


    		
  

  

    
      6
    
    
      

    		
  

  

    
      7
    
    
      
if all(hidden_bitv(dom))


    		
  

  

    
      8
    
    
      
  CPD = update_ess_simple(CPD, fmarginal.T);


    		
  

  

    
      9
    
    
      
  %fullm = add_ev_to_dmarginal(fmarginal, evidence, ns);


    		
  

  

    
      10
    
    
      
  %assert(approxeq(fullm.T(:), fmarginal.T(:)))


    		
  

  

    
      11
    
    
      
else


    		
  

  

    
      12
    
    
      
  fullm = add_ev_to_dmarginal(fmarginal, evidence, ns);


    		
  

  

    
      13
    
    
      
  CPD = update_ess_simple(CPD, fullm.T);


    		
  

  

    
      14
    
    
      
end


    		
  

  

    
      15