SelectModel/suppressionmodelesegaux2.m

   1 function[B1,ind,rho,pi]=suppressionmodelesegaux2(B1,rho,pi)
   2
   3     ind=[];
   4     nombreLambda=size(B1,2);
   5     for l=1:nombreLambda
   6         for ll=1:l-1
   7             if B1(:,l)==B1(:,ll)
   8                 ind=[ind l];
   9             end
  10         end
  11     end
  12     ind=unique(ind);
  13     B1(:,ind)=[];
  14     rho(:,:,:,ind)=[];
  15     pi(:,ind)=[];
  16
  17 end