wolffd@0: % Compare online filtering algorithms on some DBNs
wolffd@0: 
wolffd@0: seed = 0;
wolffd@0: rand('state', seed);
wolffd@0: randn('state', seed);
wolffd@0: 
wolffd@0: if 0
wolffd@0:   N = 3;
wolffd@0:   Q = 2;
wolffd@0:   obs_size = 1;
wolffd@0:   discrete_obs = 0;
wolffd@0:   bnet = mk_chmm(N, Q, obs_size, discrete_obs);
wolffd@0: else
wolffd@0:   %bnet = mk_bat_dbn;
wolffd@0:   bnet = mk_water_dbn;
wolffd@0: end
wolffd@0: 
wolffd@0: T = 3;
wolffd@0: 
wolffd@0: engine = {};
wolffd@0: engine{end+1} = filter_engine(hmm_2TBN_inf_engine(bnet));
wolffd@0: engine{end+1} = filter_engine(jtree_2TBN_inf_engine(bnet));
wolffd@0: 
wolffd@0: time = cmp_online_inference(bnet, engine, T);