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