RosettaCodeData/Task/Averages-Arithmetic-mean/Octave/averages-arithmetic-mean-2.octave

function m = omean(l)
     n = sum(~isnan(l));
     l(isnan(l))=0;
     s = sum(l);
     m = s./n;
end;