wolffd@0: function marginal = marginal_nodes(engine, nodes, t, add_ev)
wolffd@0: % MARGINAL_NODES Compute the marginal on the specified query nodes (loopy_unrolled_dbn)
wolffd@0: % marginal = marginal_nodes(engine, nodes, t)
wolffd@0: %
wolffd@0: % 't' specifies the time slice of the earliest node in 'nodes'.
wolffd@0: % 'nodes' must occur in some clique.
wolffd@0: %
wolffd@0: % Example:
wolffd@0: % Consider a DBN with 2 nodes per slice.
wolffd@0: % Then t=2, nodes=[1 3] refers to node 1 in slice 2 and node 1 in slice 3,
wolffd@0: % i.e., nodes 3 and 5 in the unrolled network,
wolffd@0: 
wolffd@0: if nargin < 3, t = 1; end
wolffd@0: if nargin < 4, add_ev = 0; end
wolffd@0: 
wolffd@0: marginal = marginal_nodes(engine.unrolled_engine, nodes + (t-1)*engine.ss, add_ev);