view toolboxes/FullBNT-1.0.7/bnt/general/shrink_obs_dims_in_gaussian.m @ 0:cc4b1211e677 tip

initial commit to HG from
Changeset:
646 (e263d8a21543) added further path and more save "camirversion.m"

function marg2 = shrink_obs_dims_in_gaussian(marg1, dom, evidence, ns)
% SHRINK_OBS_DIMS_IN_GAUSSIAN Remove observed dimensions from mu/Sigma
% function marg2 = shrink_obs_dims_in_gaussian(marg1, dom, evidence, ns)

% This is used by loopy

hdom = dom(isemptycell(evidence(dom)));
ndx = find_equiv_posns(hdom, dom);
b = block(ndx, ns(dom));
marg2.mu = marg1.mu(b);
marg2.Sigma = marg1.Sigma(b,b);
marg2.domain = marg1.domain;