view toolboxes/FullBNT-1.0.7/bnt/CPDs/@tabular_CPD/log_prior.m @ 0:cc4b1211e677 tip

initial commit to HG from Changeset: 646 (e263d8a21543) added further path and more save "camirversion.m"
author Daniel Wolff
date Fri, 19 Aug 2016 13:07:06 +0200
parents
children
line wrap: on
line source
function L = log_prior(CPD)
% LOG_PRIOR Return log P(theta) for a tabular CPD 
% L = log_prior(CPD)

switch CPD.prior_type
 case 'none',
  L = 0;
 case 'dirichlet',
  D = CPD.dirichlet(:);
  L = sum(log(D + (D==0)));
 case 'entropic',
  % log-prior = log exp(-H(theta)) = sum_i theta_i log (theta_i)
  fam_sz = CPD.sizes;
  psz = prod(fam_sz(1:end-1));
  ssz = fam_sz(end);
  C = reshape(CPD.CPT, psz, ssz);
  L = sum(sum(C .* log(C + (C==0))));
end