Mercurial > hg > camir-aes2014
comparison toolboxes/FullBNT-1.0.7/bnt/inference/dynamic/@ff_inf_engine/enter_evidence.m @ 0:e9a9cd732c1e tip
first hg version after svn
author | wolffd |
---|---|
date | Tue, 10 Feb 2015 15:05:51 +0000 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:e9a9cd732c1e |
---|---|
1 function [engine, loglik] = enter_evidence(engine, evidence, varargin) | |
2 % ENTER_EVIDENCE Add the specified evidence to the network (ff) | |
3 % [engine, loglik] = enter_evidence(engine, evidence, ...) | |
4 % | |
5 % evidence{i,t} = [] if if X(i,t) is hidden, and otherwise contains its observed value (scalar or | |
6 % column vector) | |
7 % | |
8 % The following optional arguments can be specified in the form of name/value pairs: | |
9 % [default value in brackets] | |
10 % | |
11 % maximize - if 1, does max-product (not yet supported), else sum-product [0] | |
12 % filter - if 1, do filtering, else smoothing [0] | |
13 % | |
14 % e.g., engine = enter_evidence(engine, ev, 'maximize', 1) | |
15 | |
16 maximize = 0; | |
17 filter = 0; | |
18 | |
19 % parse optional params | |
20 args = varargin; | |
21 nargs = length(args); | |
22 if nargs > 0 | |
23 for i=1:2:nargs | |
24 switch args{i}, | |
25 case 'maximize', maximize = args{i+1}; | |
26 case 'filter', filter = args{i+1}; | |
27 otherwise, | |
28 error(['invalid argument name ' args{i}]); | |
29 end | |
30 end | |
31 end | |
32 | |
33 assert(~maximize); | |
34 | |
35 | |
36 [ss T] = size(evidence); | |
37 observed = ~isemptycell(evidence); | |
38 bnet = bnet_from_engine(engine); | |
39 %pot_type = determine_pot_type(find(observed(:,1)), bnet.cnodes_slice, bnet.intra); | |
40 pot_type = determine_pot_type(bnet, observed); | |
41 % we assume we can use the same pot_type in all slices | |
42 | |
43 CPDpot = convert_dbn_CPDs_to_pots(bnet, evidence, pot_type); | |
44 | |
45 % Now convert CPDs on observed nodes to be potentials just on their parents | |
46 assert(pot_type == 'd'); | |
47 onodes = bnet.observed(:); | |
48 ns = bnet.node_sizes_slice; | |
49 ns(onodes) = 1; | |
50 for t=1:T | |
51 for i=onodes | |
52 p = parents(bnet.dag, i); | |
53 %CPDpot{i,t} = set_domain_pot(CPDpot{i,t}, p); % leaves size too long | |
54 temp = pot_to_marginal(CPDpot{i,t}); | |
55 CPDpot{i,t} = dpot(p, ns(p), temp.T); % assumes pot_type = d | |
56 end | |
57 end | |
58 | |
59 [engine.marginals, engine.fwd, engine.back, loglik] = enter_soft_evidence(engine, CPDpot, observed, pot_type, filter); | |
60 | |
61 engine.CPDpot = CPDpot; | |
62 engine.filter = filter; |