Mercurial > hg > camir-aes2014
comparison toolboxes/FullBNT-1.0.7/bnt/inference/dynamic/@pearl_unrolled_dbn_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, niter] = enter_evidence(engine, evidence, varargin) | |
2 % ENTER_EVIDENCE Add the specified evidence to the network (loopy_unrolled_dbn) | |
3 % [engine, loglik, niter] = enter_evidence(engine, evidence, ....) | |
4 % | |
5 % evidence{i,t} = [] if if X(i,t) is hidden, and otherwise contains its observed value (scalar or column vector) | |
6 % | |
7 % The following optional arguments can be specified in the form of name/value pairs: | |
8 % [default value in brackets] | |
9 % | |
10 % maximize - if 1, does max-product (not yet supported), else sum-product [0] | |
11 % filename - as in loopy_pearl | |
12 % | |
13 % e.g., engine = enter_evidence(engine, ev, 'maximize', 1) | |
14 | |
15 maximize = 0; | |
16 filename = engine.filename; | |
17 | |
18 if nargin >= 2 | |
19 args = varargin; | |
20 nargs = length(args); | |
21 for i=1:2:nargs | |
22 switch args{i}, | |
23 case 'maximize', maximize = args{i+1}; | |
24 case 'filename', filename = args{i+1}; | |
25 end | |
26 end | |
27 end | |
28 | |
29 | |
30 [ss T] = size(evidence); | |
31 if T ~= engine.T | |
32 bnetT = dbn_to_bnet(bnet_from_engine(engine), T); | |
33 engine.unrolled_engine = pearl_inf_engine(bnetT, 'protocol', engine.protocol, ... | |
34 'max_iter', engine.max_iter_per_slice * T, ... | |
35 'tol', engine.tol, 'momentum', engine.momentum); | |
36 engine.T = T; | |
37 end | |
38 [engine.unrolled_engine, loglik, niter] = enter_evidence(engine.unrolled_engine, evidence(:), ... | |
39 'maximize', maximize, 'filename', filename); | |
40 | |
41 |