function [ts,avg,fh] = statshandle(in_vec) 
%STATSHANDLE Sends function handle data.

ts = sum(in_vec);
avg = ourmean(in_vec); % Call subfunction
fh = @ourmean;         % Get function handle

function y = ourmean (x)
% OURMEAN - Calculates average
[m,n] = size(x);
if m == 1
   m = n;
end
y = sum(x)/m;