function stattslabelaxes(ax,ts,yname,charttype)
%STATTSLABELAXES Label axes with time information.

% Copyright 2005 The MathWorks, Inc. 
% $Revision: 1.1.6.1 $  $Date: 2005/11/18 14:28:56 $

% Get variable name and units, if any
if isempty(ts) || isequal(ts.Name,'unnamed') || isempty(ts.Name)
    varname = '';
else
    varname = ts.Name;
end
if isempty(ts) || isempty(ts.DataInfo.units)
    units = '';
else
    units = ts.DataInfo.units;
end

% Derive y axis label from varname and units
if isempty(yname)
    if isempty(varname)
        yname = 'Measurement';
    else
        yname = varname;
    end
end
if isempty(units)
    ylabel(ax,yname);
else
    ylabel(ax,sprintf('%s (%s)',yname,units));
end

% Create title with chart type
if isempty(varname)
    title(ax,charttype);
else
    title(ax,sprintf('%s for %s',charttype,varname));
end

% Label x axes with time or sample number
if isempty(ts)
    xlabel('Samples');
elseif isempty(ts.TimeInfo.StartDate)
    if isempty(ts.TimeInfo.units)
        xlabel(ax,'Time')
    else
        xlabel(ax,sprintf('Time (%s)',ts.TimeInfo.units));
    end
else
    xlabel('');
    if isempty(ts.TimeInfo.Format)
        datetick(ax,'x');
    else
        datetick(ax,'x',ts.TimeInfo.Format);
    end
end