Daniel@0: function [engine, LL] = enter_evidence(engine, ev)
Daniel@0: % ENTER_EVIDENCE Call the offline smoother
Daniel@0: % [engine, loglik] = enter_evidence(engine, evidence, ...)
Daniel@0: %
Daniel@0: % evidence{i,t} = [] if if X(i,t) is hidden, and otherwise contains its observed value (scalar or column vector)
Daniel@0: %
Daniel@0: 
Daniel@0: T = size(ev, 2);
Daniel@0: f = cell(1,T);
Daniel@0: b = cell(1,T); % b{t}.clpot{c}
Daniel@0: ll = zeros(1,T);
Daniel@0: [f{1}, ll(1)] = fwd1(engine.tbn_engine, ev(:,1), 1);
Daniel@0: for t=2:T
Daniel@0:   [f{t}, ll(t)] = fwd(engine.tbn_engine, f{t-1}, ev(:,t), t);
Daniel@0: end
Daniel@0: LL = sum(ll);
Daniel@0: b{T} = backT(engine.tbn_engine, f{T}, T);
Daniel@0: for t=T-1:-1:1
Daniel@0:   b{t} = back(engine.tbn_engine, b{t+1}, f{t}, t);
Daniel@0: end
Daniel@0: engine.b = b;