view toolboxes/FullBNT-1.0.7/bnt/CPDs/@tabular_CPD/Old/bayesian_score_CPD.m @ 0:e9a9cd732c1e tip

first hg version after svn

function score = bayesian_score_CPD(CPD, local_ev)
% bayesian_score_CPD Compute the Bayesian score of a tabular CPD using uniform Dirichlet prior
% score = bayesian_score_CPD(CPD, local_ev)
%
% The Bayesian score is the log marginal likelihood

if iscell(local_ev)
 data = num2cell(local_ev);
else
 data =	local_ev;
end

score = dirichlet_score_family(compute_counts(data, CPD.sizes));