enter_evidence.m

来自「Bayes网络工具箱」· M 代码 · 共 29 行

function [engine, loglik] = enter_evidence(engine, evidence, filter)
% ENTER_EVIDENCE Add the specified evidence to the network (pearl_dbn)
% [engine, loglik] = enter_evidence(engine, evidence, filter)
%
% evidence{i,t} = [] if if X(i,t) is hidden, and otherwise contains its observed value (scalar or column vector)
% If filter = 1, we do filtering, otherwise smoothing (default).

if nargin < 3, filter = 0; end

if engine.object_oriented
  if filter
    [engine.marginal, engine.msg, loglik] = filter_evidence_obj_oriented(engine, evidence);
  else
    [engine.marginal, engine.msg, loglik] = smooth_evidence_obj_oriented(engine, evidence);
  end
else
  if filter
    [engine.marginal, engine.msg, loglik] = filter_evidence(engine, evidence);
  else
    if engine.fast
      [engine.marginal, engine.msg, loglik] = smooth_evidence_fast(engine, evidence);
    else
      [engine.marginal, engine.msg, loglik] = smooth_evidence(engine, evidence);
    end
  end
end

engine.evidence = evidence; % needed by marginal_nodes and marginal_family