function channel=choosechannelnew2(stats)
#stats is a matrix as in 'runlearn2rankfqrsonly' but omiting the last row
#it consists (for one record) on 4 rows each one containing:
# numfqrs statistics(diff(fqrs)) (9 elements) nummqrs  statistics(diff(mqrs))
#w is the vector of weights obtained in 'run2learnrankfqrs' based on training set-a

w=zeros(1,2);
w(1)=-1;#num fqrs is the most importante factor
w(2)=0.5;#low std is the other factor 

aux=zeros(1,4);
for i=1:4
  aux(i)=stats(i,:)*w';# this is the had hoc score for channel i
endfor

[a channel]=min(aux(:));

#if the stats for these channel are all zero replace it
if(!any(stats(channel,:)))
  b=max(aux(:));
  aux(channel)=b;

  [a channel]=min(aux(:));
endif

endfunction