Daniel@0: function ee = set(e,varargin)
Daniel@0: % SET Set properties for the MIRemotion object
Daniel@0: % and return the updated object
Daniel@0: 
Daniel@0: propertyArgIn = varargin;
Daniel@0: %dim = e.dim;
Daniel@0: dimdata = e.dimdata;
Daniel@0: activity_fact = e.activity_fact;
Daniel@0: valence_fact = e.valence_fact;
Daniel@0: tension_fact = e.tension_fact;
Daniel@0: %classes = e.class;
Daniel@0: classdata = e.classdata;
Daniel@0: happy_fact = e.happy_fact;
Daniel@0: sad_fact = e.sad_fact;
Daniel@0: tender_fact = e.tender_fact;
Daniel@0: anger_fact = e.anger_fact;
Daniel@0: fear_fact = e.fear_fact;
Daniel@0: d = mirdata(e);
Daniel@0: d = set(d,'Title',get(e,'Title'),'Abs',get(e,'Abs'),'Ord',get(e,'Ord'));
Daniel@0: while length(propertyArgIn) >= 2,
Daniel@0:    prop = propertyArgIn{1};
Daniel@0:    val = propertyArgIn{2};
Daniel@0:    propertyArgIn = propertyArgIn(3:end);
Daniel@0:    switch prop
Daniel@0:        case 'DimData'
Daniel@0:            dimdata = val;
Daniel@0:        case 'ClassData'
Daniel@0:            classdata = val;
Daniel@0:         case 'ActivityFactors'
Daniel@0:             activity_fact = val;
Daniel@0:         case 'ValenceFactors'
Daniel@0:             valence_fact = val;
Daniel@0:         case 'TensionFactors'
Daniel@0:             tension_fact = val;
Daniel@0:         case 'HappyFactors'
Daniel@0:             happy_fact = val;
Daniel@0:         case 'SadFactors'
Daniel@0:             sad_fact = val;
Daniel@0:         case 'TenderFactors'
Daniel@0:             tender_fact = val;
Daniel@0:         case 'AngerFactors'
Daniel@0:             anger_fact = val;
Daniel@0:         case 'FearFactors'
Daniel@0:             fear_fact = val;
Daniel@0:        otherwise
Daniel@0:            d = set(d,prop,val);
Daniel@0:    end
Daniel@0: end
Daniel@0: ee.dim = e.dim;
Daniel@0: ee.dimdata = dimdata;
Daniel@0: ee.activity_fact = activity_fact;
Daniel@0: ee.valence_fact = valence_fact;
Daniel@0: ee.tension_fact = tension_fact;
Daniel@0: ee.class = e.class;
Daniel@0: ee.classdata = classdata;
Daniel@0: ee.happy_fact = happy_fact;
Daniel@0: ee.sad_fact = sad_fact;
Daniel@0: ee.tender_fact = tender_fact;
Daniel@0: ee.anger_fact = anger_fact;
Daniel@0: ee.fear_fact = fear_fact;
Daniel@0: ee = class(ee,'miremotion',d);