Daniel@0: function b = isamir(x,class)
Daniel@0: 
Daniel@0: if isempty(x) || isnumeric(x)
Daniel@0:     b = 0;
Daniel@0:     return
Daniel@0: end
Daniel@0: 
Daniel@0: if iscell(x)
Daniel@0:     x = x{1};
Daniel@0: end
Daniel@0: 
Daniel@0: if isa(x,class)
Daniel@0:     b = 1;
Daniel@0:     return
Daniel@0: elseif ischar(x) && strcmpi(class,'miraudio')
Daniel@0:     b = 1;
Daniel@0:     return
Daniel@0: elseif not(isa(x,'mirdesign'))
Daniel@0:     b = 0;
Daniel@0:     return
Daniel@0: end
Daniel@0: 
Daniel@0: type = get(x,'Type');
Daniel@0: if iscell(type)
Daniel@0:     type = type{1};
Daniel@0: end
Daniel@0: types = lineage(type);
Daniel@0: b = 0;
Daniel@0: i = 0;
Daniel@0: while not(b) && i<length(types)
Daniel@0:     i = i+1;
Daniel@0:     if strcmpi(types(i),class)
Daniel@0:         b = 1;
Daniel@0:     end
Daniel@0: end
Daniel@0: 
Daniel@0: 
Daniel@0: function types = lineage(class)
Daniel@0: switch class
Daniel@0:     case {'miraudio','mirenvelope'}
Daniel@0:         parent = 'mirtemporal';
Daniel@0:     case {'mirautocor','mircepstrum','mirchromagram','mirhisto',...
Daniel@0:           'mirkeysom','mirkeystrength','mirmatrix','mirmfcc',...
Daniel@0:           'mirscalar','mirsimatrix','mirspectrum',...
Daniel@0:           'mirtemporal','mirtonalcentroid'}
Daniel@0:         parent = 'mirdata';
Daniel@0:     otherwise
Daniel@0:         parent = '';
Daniel@0: end
Daniel@0: 
Daniel@0: if isempty(parent)
Daniel@0:     types = {class};
Daniel@0: else
Daniel@0:     parents = lineage(parent);
Daniel@0:     types = {class parents{:}};
Daniel@0: end