function [avg,avgr]=spe_avg(yo)

[r,c]=size(yo);
avg=  (sum(yo')/c)';

%validc=fix(c*(1-0.0498));  %% exp(-5)= 6.74e-3
%validc=fix(c*(1-0.135));  %% exp(-2)= 0.135
validc=fix(c*(1-0.36));  %% exp(-1)= 0.36


yos=sort(yo');
avgr=sum(yos(1:validc,:))'/validc; 


