% Test mean() operator for AOs.
%
% M Hewitson 19-04-07
%
% $Id: test_mean.m,v 1.11 2009/02/02 15:20:39 hewitson Exp $
%
function test_mean()
  
  
  % Make test AOs
  
  nsecs = 10;
  fs    = 1000;
  
  pl = plist('nsecs', nsecs, 'fs', fs, 'tsfcn', '10 + sin(2*pi*7.433*t) + randn(size(t))');
  
  a1 = ao(pl);
  a1 = a1.setName('a1')
  
  % Take abs
  a2 = mean(a1)
  a3 = a1 - a2;
  
  % Plot
  iplot(a1, a3)
  
end

% END