function y = posmean(x)
% y = posmean(x)
%
% x column vector
%
% return y = mean of all non-negative entries in x

if size(x,2) == 1
    y = mean(x(x>=0));
else 
    y = NaN;
end
