wolffd@0: function m = pot_to_marginal(pot)
wolffd@0: % POT_TO_MARGINAL Convert a dpot to a marginal structure.
wolffd@0: % m = pot_to_marginal(pot)
wolffd@0: 
wolffd@0: m.domain = pot.domain;
wolffd@0: m.T = pot.T;
wolffd@0: m.mu = [];
wolffd@0: m.Sigma = [];  
wolffd@0: 
wolffd@0: %if isvector(m.T)
wolffd@0: %  m.T = m.T(:);
wolffd@0: %end