function [t,tpos,tneg,u,upos,uneg]=numtests(targets,index)
% WBL 13 Oct 2002 How many tests in index are unique? $Revision: 1.1 $'$Date: 2002/10/13 13:47:41 $

pos=targets(2,index)>targets(1,index);

t    = size(index,2);
tpos = sum(pos);
tneg = sum(1-pos);    
u    = size(unique(index),2);
upos = size(unique(index.*pos),2)-1;
uneg = size(unique(index.*(1-pos)),2)-1;