function tfta(fileuse)
%TFTA(fileuse)   Time-Frequency Transform Analysis
%
%  fileuse ('choosenew'): whether to choose a new file set or use an old one
%
%Examples:
%  tfta
%  tfta('useold');

if (nargin==0)
  fileuse = 'choosenew';
end %if

[ecgfilename, cdfilename, rrfilename, hrfilename, ecgfilenameonly] = chooser(fileuse);

[hrt hr] = textread(hrfilename,'%f %f',-1, 'headerlines', 1);
tfrspwv(hilbert(hr));

%F.Auger,P.Flandrin, P.Goncalves,O.Lemoin:
%Time-Frequency Toolbox For Use with MATLAB,
%CNRS & Rice University, 1995-1996