X-Git-Url: https://git.auder.net/?p=valse.git;a=blobdiff_plain;f=pkg%2FR%2Fselectiontotale.R;h=7209feddf3167a986b29468490253d89b21e243e;hp=25128cb0b36d3c61756815a5f8084f477675612d;hb=64b28e3edeef11b4442b6014ec89246810ebc1cf;hpb=3f62d540d32b70f42b9090087f72426c18cb219e

diff --git a/pkg/R/selectiontotale.R b/pkg/R/selectiontotale.R
index 25128cb..7209fed 100644
--- a/pkg/R/selectiontotale.R
+++ b/pkg/R/selectiontotale.R
@@ -32,6 +32,7 @@ selectiontotale = function(phiInit,rhoInit,piInit,gamInit,mini,maxi,gamma,glambd
     cpt = 0
     #Pour chaque lambda de la grille, on calcule les coefficients
     for (lambdaIndex in 1:length(glambda)){
+      print(lambdaIndex)
       params = 
         EMGLLF(phiInit,rhoInit,piInit,gamInit,mini,maxi,gamma,glambda[lambdaIndex],X,Y,tau)
       p = dim(phiInit)[1]