X-Git-Url: https://git.auder.net/?a=blobdiff_plain;f=pkg%2FR%2FselectVariables.R;h=bab45cccee4f7bf1d39aa48dc8f13a33d04eaae9;hb=23b9fb13bc6e82d7ca43bfb83aa85b6cd69c52c0;hp=39e54d2792083d315f02c10cad82942368a2e65a;hpb=228ee602a972fcac6177db0d539bf9d0c5fa477f;p=valse.git 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