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 / Old / update_params.m @ 8:b5b38998ef3b

History | View | Annotate | Download (550 Bytes)

1 
function CPD = update_params(CPD, ev, counts)
2 
% UPDATE_PARAMS Update the Dirichlet pseudo counts and compute the new MAP param estimates (tabular)
3 
%
4 
% CPD = update_params(CPD, ev) uses the evidence on the family from a single case.
5 
%
6 
% CPD = update_params(CPD, [], counts) does a batch update using the specified suff. stats.
7 

    		
  

  

    
      8
    
    
      
if nargin < 3


    		
  

  

    
      9
    
    
      
  n = length(ev);


    		
  

  

    
      10
    
    
      
  data = cat(1, ev{:}); % convert to a vector of scalars


    		
  

  

    
      11
    
    
      
  counts = compute_counts(data(:)', 1:n, mysize(CPD.CPT));


    		
  

  

    
      12
    
    
      
end


    		
  

  

    
      13
    
    
      
  


    		
  

  

    
      14
    
    
      
CPD.prior = CPD.prior + counts;


    		
  

  

    
      15
    
    
      
CPD.CPT = mk_stochastic(CPD.prior);