function [avg, med] = mystats(u)
%MYSTATS Find mean and median with internal functions.
% Function MYSTATS calculates the average and median
% of a data set using subfunctions.

n = length(u);
avg = mean(u,n);
med = median(u,n);

end % function mystats


function a = mean(v,n)
% Subfunction to calculate average.
a = sum(v)/n;

end % function mean


function m = median(v,n)
% Subfunction to calculate median.
w = sort(v);
if rem(n,2) == 1
   m = w((n+1)/2);
else
   m = (w(n/2)+w(n/2+1))/2;
end

end % function median