Inputparametters.R + SelecModel
[valse.git] / 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