X-Git-Url: https://git.auder.net/?p=valse.git;a=blobdiff_plain;f=pkg%2FR%2FselectVariables.R;h=bab45cccee4f7bf1d39aa48dc8f13a33d04eaae9;hp=39e54d2792083d315f02c10cad82942368a2e65a;hb=923ed737d0fa335b858204b813c964432488abbe;hpb=f7ac8e154ed78624db1a9992adb5576cae499989

diff --git a/pkg/R/selectVariables.R b/pkg/R/selectVariables.R
index 39e54d2..bab45cc 100644
--- a/pkg/R/selectVariables.R
+++ b/pkg/R/selectVariables.R
@@ -67,6 +67,8 @@ selectVariables <- function(phiInit, rhoInit, piInit, gamInit, mini, maxi, gamma
     }
   if (ncores > 1) 
     parallel::stopCluster(cl)
+ 
+  print(out)
   # Suppress models which are computed twice En fait, ca ca fait la comparaison de
   # tous les parametres On veut juste supprimer ceux qui ont les memes variables
   # sélectionnées