wolffd@0: function ee = set(e,varargin)
wolffd@0: % SET Set properties for the MIRemotion object
wolffd@0: % and return the updated object
wolffd@0: 
wolffd@0: propertyArgIn = varargin;
wolffd@0: %dim = e.dim;
wolffd@0: dimdata = e.dimdata;
wolffd@0: activity_fact = e.activity_fact;
wolffd@0: valence_fact = e.valence_fact;
wolffd@0: tension_fact = e.tension_fact;
wolffd@0: %classes = e.class;
wolffd@0: classdata = e.classdata;
wolffd@0: happy_fact = e.happy_fact;
wolffd@0: sad_fact = e.sad_fact;
wolffd@0: tender_fact = e.tender_fact;
wolffd@0: anger_fact = e.anger_fact;
wolffd@0: fear_fact = e.fear_fact;
wolffd@0: d = mirdata(e);
wolffd@0: d = set(d,'Title',get(e,'Title'),'Abs',get(e,'Abs'),'Ord',get(e,'Ord'));
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 'DimData'
wolffd@0:            dimdata = val;
wolffd@0:        case 'ClassData'
wolffd@0:            classdata = val;
wolffd@0:         case 'ActivityFactors'
wolffd@0:             activity_fact = val;
wolffd@0:         case 'ValenceFactors'
wolffd@0:             valence_fact = val;
wolffd@0:         case 'TensionFactors'
wolffd@0:             tension_fact = val;
wolffd@0:         case 'HappyFactors'
wolffd@0:             happy_fact = val;
wolffd@0:         case 'SadFactors'
wolffd@0:             sad_fact = val;
wolffd@0:         case 'TenderFactors'
wolffd@0:             tender_fact = val;
wolffd@0:         case 'AngerFactors'
wolffd@0:             anger_fact = val;
wolffd@0:         case 'FearFactors'
wolffd@0:             fear_fact = val;
wolffd@0:        otherwise
wolffd@0:            d = set(d,prop,val);
wolffd@0:    end
wolffd@0: end
wolffd@0: ee.dim = e.dim;
wolffd@0: ee.dimdata = dimdata;
wolffd@0: ee.activity_fact = activity_fact;
wolffd@0: ee.valence_fact = valence_fact;
wolffd@0: ee.tension_fact = tension_fact;
wolffd@0: ee.class = e.class;
wolffd@0: ee.classdata = classdata;
wolffd@0: ee.happy_fact = happy_fact;
wolffd@0: ee.sad_fact = sad_fact;
wolffd@0: ee.tender_fact = tender_fact;
wolffd@0: ee.anger_fact = anger_fact;
wolffd@0: ee.fear_fact = fear_fact;
wolffd@0: ee = class(ee,'miremotion',d);