function [area,Ax,roc]=ensemble(n,betaT,net,inx,Bx,outfile)%WBL 23 Sep 2002 Ensemble together boosted nets and then calculate its performance% $Revision: 1.5 $  $Date: 2002/10/31 11:23:47 $%WBL 23 Sep 2002 Based on testnet.m r1.4Ax = zeros(2,size(Bx,2));for i=1:n    Ax = Ax -log(betaT(i))*sim(net{i},inx);end%AA = compet(A);%[x,Q]=find(AA);%errors = sum(abs((x-1)-B'));%%fprintf('Percentage error of 23-aug-2002_20x866 on VER+11_FULLtrn %f\n',...%    100.0*errors/ntests);[area,roc]=errors(Ax,Bx,outfile);%fclose(file);