%
%
%
% function [mnnan]=meannnan(y);
%
% outputs the mean of all the not NaN's in a series
%
function  [mnnan]=meannnan(y);
mnnan=mean(y(find(isnan(y)~=1)));
