several modifs - pkg looks better (but untested)

[valse.git] / pkg / R / constructionModelesLassoMLE.R

diff --git a/pkg/R/constructionModelesLassoMLE.R b/pkg/R/constructionModelesLassoMLE.R
index 6c37751..67fc1fc 100644 (file)
--- a/pkg/R/constructionModelesLassoMLE.R
+++ b/pkg/R/constructionModelesLassoMLE.R
@@ -75,9 +75,9 @@ constructionModelesLassoMLE = function(phiInit, rhoInit, piInit, gamInit, mini,
        #Pour chaque lambda de la grille, on calcule les coefficients
   out =
                if (ncores > 1)
        #Pour chaque lambda de la grille, on calcule les coefficients
   out =
                if (ncores > 1)

-                       parLapply(cl, seq_along(glambda), computeAtLambda)
+                       parLapply(cl, glambda, computeAtLambda)

                else
                else

-                       lapply(seq_along(glambda), computeAtLambda)
+                       lapply(glambda, computeAtLambda)

 
        if (ncores > 1)
     parallel::stopCluster(cl)
 
        if (ncores > 1)
     parallel::stopCluster(cl)