prepare structure for R package

[valse.git] / OLD_MATLAB / SelectModel / selectiondindice.m

diff --git a/OLD_MATLAB/SelectModel/selectiondindice.m b/OLD_MATLAB/SelectModel/selectiondindice.m
new file mode 100644 (file)
index 0000000..4ef8b96
--- /dev/null
+++ b/OLD_MATLAB/SelectModel/selectiondindice.m
@@ -0,0 +1,19 @@
+%utile dans selectiontotale.m, remarque quels coefficients sont nuls et lesquels ne le sont pas
+function[A,B]=selectiondindice(phi,seuil)
+
+       [pp,m,~]=size(phi);
+       A=zeros(pp,m);
+       B=zeros(pp,m);
+       for j=1:pp
+               cpt=0;cpt2=0;
+               for mm=1:m
+                       if (max(phi(j,mm,:)) > seuil)
+                               cpt=cpt+1;
+                               A(j,cpt)=mm;
+                       else cpt2=cpt2+1;
+                                B(j,cpt2)=mm;
+                       end
+               end
+       end
+
+end