meannan.m

多维数据处理：MATLAB源程序用于处理多维数据

function m=meannan(X);

% $ Version 1.02 $ Date 28. July 1998 $ Not compiled $
%
% Estimates the mean of each column of X
% when there are NaN's in X.
%
% Columns with only NaN's get a mean of zero
%
% Copyright
% Claus A. Andersson 1996-
% Chemometrics Group, Food Technology
% Department of Food and Dairy Science
% Royal Veterinary and Agricultutal University
% Rolighedsvej 30, DK-1958 Frederiksberg, Denmark
% E-mail: [e-mail]


[I,J]=size(X);

m=[];
for j=1:J
  id=find(~isnan(X(:,j)));
  if length(id)
    m=[m mean(X(id,j))];
  else
    m=[m 0];
  end
end