Merge branch 'master' of auder.net:valse

diff --combined pkg/R/valse.R
index 445ea26,f84c2c5..445ea26
--- 1/R/valse.R
--- 2/pkg/R/valse.R
+++ b/pkg/R/valse.R
@@@ -47,7 -47,8 +47,7 @@@ valse = function(X,Y,procedure,selecMod
      #from the grid: A1 corresponding to selected variables, and
      #A2 corresponding to unselected variables.
      params = selectiontotale(phiInit,rhoInit,piInit,gamInit,mini,maxi,gamma,gridLambda,X,Y,1e-8,eps)
 -    A1 <<- params$A1
 -    A2 <<- params$A2
 +    selected <<- params$selected
      Rho <<- params$Rho
      Pi <<- params$Pi
      
@@@ -57,7 -58,7 +57,7 @@@
        #Estimator, restricted on selected variables.
        model = constructionModelesLassoMLE(
          phiInit, rhoInit,piInit,tauInit,mini,maxi,
 -        gamma,gridLambda,X,Y,thresh,eps,A1,A2)
 +        gamma,gridLambda,X,Y,thresh,eps,selected)
        ################################################
        ### Regarder la SUITE
        r1 = runProcedure1()