ajout des commentaires Roxygen - anglicisme de certains noms de fonctions et de variables

[valse.git] / R / selectionindice.R

diff --git a/R/selectionindice.R b/R/selectionindice.R
deleted file mode 100644 (file)
index 97014b1..0000000
--- a/R/selectionindice.R
+++ /dev/null
@@ -1,28 +0,0 @@
-selectionindice = function(phi, seuil)
-{
-       dim_phi = dim(phi)
-       pp = dim_phi[1]
-       m = dim_phi[2]
-
-       A = matrix(0, pp, m)
-       B = matrix(0, pp, m)
-
-       for(j in 1:pp)
-       {
-               cpt1 = 0
-               cpt2 = 0
-               for(mm in 1:m)
-               {
-                       if(max(phi[j,mm,]) > seuil)
-                       {
-                               cpt1 = cpt1 + 1
-                               A[j,cpt] = mm
-                       } else
-                       {
-                               cpt2 = cpt2+1
-                               B[j, cpt2] = mm
-                       }
-               }
-       }
-       return (list(A,B))
-}