matthiasm@8: function engine = update_engine(engine, newCPDs)
matthiasm@8: % UPDATE_ENGINE Update the engine to take into account the new parameters (bk)
matthiasm@8: % engine = update_engine(engine, newCPDs)
matthiasm@8: 
matthiasm@8: engine.inf_engine = update_engine(engine.inf_engine, newCPDs);
matthiasm@8: engine.sub_engine = update_engine(engine.sub_engine, newCPDs);
matthiasm@8: 
matthiasm@8: bnet = bnet_from_engine(engine);
matthiasm@8: eclass1 = bnet.equiv_class(:,1);
matthiasm@8: engine.sub_engine1 = update_engine(engine.sub_engine1, newCPDs(1:max(eclass1)));
matthiasm@8: