function res = classeval(net,thres)

% res=classeval(net,thres)
% evaluiert ein Klassifikationsnetz für alle Validierungsdaten
% res(1) ... Sensitivität
% res(2) ... Spezifität

if net.type=='mlp'
   out=mlpfwd(net,net.vin);
else
   out=glmfwd(net,net.vin);
end

c1=find(net.vout);
c2=find(~net.vout);

kpos=find(out(c1)>=thres);
fneg=find(out(c1)<thres);
kneg=find(out(c2)<thres);
fpos=find(out(c2)>=thres);

res(1)=length(kpos)/length(c1);
res(2)=length(kneg)/length(c2);

