annotate 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"
| author |
Daniel Wolff |
| date |
Fri, 19 Aug 2016 13:07:06 +0200 |
| parents |
|
| children |
|
| rev |
line source |
|
Daniel@0
|
1 function marg2 = shrink_obs_dims_in_gaussian(marg1, dom, evidence, ns)
|
|
Daniel@0
|
2 % SHRINK_OBS_DIMS_IN_GAUSSIAN Remove observed dimensions from mu/Sigma
|
|
Daniel@0
|
3 % function marg2 = shrink_obs_dims_in_gaussian(marg1, dom, evidence, ns)
|
|
Daniel@0
|
4
|
|
Daniel@0
|
5 % This is used by loopy
|
|
Daniel@0
|
6
|
|
Daniel@0
|
7 hdom = dom(isemptycell(evidence(dom)));
|
|
Daniel@0
|
8 ndx = find_equiv_posns(hdom, dom);
|
|
Daniel@0
|
9 b = block(ndx, ns(dom));
|
|
Daniel@0
|
10 marg2.mu = marg1.mu(b);
|
|
Daniel@0
|
11 marg2.Sigma = marg1.Sigma(b,b);
|
|
Daniel@0
|
12 marg2.domain = marg1.domain;
|
