wolffd@0: function c = purgedata(c)
wolffd@0: 
wolffd@0: d = get(c,'Data');
wolffd@0: l = length(d);
wolffd@0: empty = cell(1,l);
wolffd@0: for i = 1:l
wolffd@0:     empty{i} = cell(1,length(d{i}));
wolffd@0: end
wolffd@0: c = set(c,'PeakPos',empty,'PeakVal',empty,...
wolffd@0:           'PeakPrecisePos',{},'PeakPreciseVal',{},'PeakMode',empty);
wolffd@0:           %,...'Tmp',[]);