No BSD License  

Highlights from
Tree-Ring MATLAB Toolbox

Tree-Ring MATLAB Toolbox

by

 

Utility functions for analyzing tree-ring data with MATLAB.

x=trailnan(x);
function x=trailnan(x);
% trailnan: remove any trailing NaN's from a vector
% x=trailnan(x);
% Last revised: Meko 2-28-97
%
% trailnan is a utility function used by rwlinp.m and other functions. Most users
% will not need to call trailnan in their own code 
%
%*** INPUT
%
% x (1 x ?)r or (? x 1)r vector, usually a time series
%
%*** OUTPUT
%
% x (? x 1)r  the same vector, but with any trailing NaN's removed
%
%*** REFERENCES -- none
%*** UW FUNCTIONS CALLED -- none
%*** TOOLBOXES NEEDED -- none
%*** NOTES -- none

[mx,nx]=size(x);
if mx==1 & nx>1; % row vector -- to  cv
	x=x';
	mx=nx;
	nx=1;
elseif mx>1 & nx==1; % col vector -- ok
else
	error('x must be cv or rv');
end


L1=isnan(x);
sum1=sum(L1);
if sum1==0,
	return
else; % at least 1 NaN
	if ~isnan(x(mx));  % last value in x is not NaN, so no trailing NaN
		return
	else; % have at least one trailing nan
		fgood = find(~isnan(x)); % row index to valid data
		fhigh=max(fgood); % index of last valid value
		iout=(fhigh+1):mx; % want to remove these trailing elements
		x(iout)=[];
	end
end


Contact us