wolffd@0: function h = haspeaks(d)
wolffd@0: 
wolffd@0: if isa(d,'mirdesign')
wolffd@0:     h = strcmp(func2str(get(d,'Method')),'mirpeaks');
wolffd@0: else
wolffd@0:     if iscell(d)
wolffd@0:         d = d{1};
wolffd@0:     end
wolffd@0:     p = get(d,'PeakVal');
wolffd@0:     h = not(isempty(p) || isempty(p{1}) || isempty(p{1}{1}));
wolffd@0: end