wolffd@0: function mm = set(m,varargin)
wolffd@0: % SET Set properties for the MIRsimatrix object
wolffd@0: % and return the updated object
wolffd@0: 
wolffd@0: propertyArgIn = varargin;
wolffd@0: graph = m.graph;
wolffd@0: branch = m.branch;
wolffd@0: d = mirdata(m);
wolffd@0: while length(propertyArgIn) >= 2,
wolffd@0:    prop = propertyArgIn{1};
wolffd@0:    val = propertyArgIn{2};
wolffd@0:    propertyArgIn = propertyArgIn(3:end);
wolffd@0:    switch prop
wolffd@0:        case 'Graph'
wolffd@0:            graph = val;
wolffd@0:        case 'Branch'
wolffd@0:            branch = val;
wolffd@0:        otherwise
wolffd@0:            d = set(d,prop,val);
wolffd@0:    end
wolffd@0: end
wolffd@0: mm.diagwidth = m.diagwidth;
wolffd@0: mm.view = m.view;
wolffd@0: mm.similarity = m.similarity;
wolffd@0: mm.graph = graph;
wolffd@0: mm.branch = branch;
wolffd@0: mm = class(mm,'mirsimatrix',d);