sourcecodes/bnt-master/BNT/CPDs/@discrete_CPD/convert_to_table_orig.m


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

function T = convert_to_table(CPD, domain, evidence)
% CONVERT_TO_TABLE Convert a discrete CPD to a table with original distribution
% T = convert_to_table(CPD, domain, evidence)
%
% We convert the CPD to a CPT, and then lookup the evidence on the discrete parents.
% The resulting table can easily be converted to a potential.

domain = domain(:);
CPT = CPD_to_CPT_orig(CPD);
odom = domain(~isemptycell(evidence(domain)));
vals = cat(1, evidence{odom});
map = find_equiv_posns(odom, domain);
index = mk_multi_index(length(domain), map, vals);
T = CPT(index{:});
T = T(:);