X-Git-Url: https://git.auder.net/?a=blobdiff_plain;f=pkg%2FR%2FselectVariables.R;h=4e9b374c26e950aa560d2faa12cf7eac2717c0c8;hb=2e813ad23c796bbed3d5ba685b8fa002bdc6689d;hp=869e7bfc99967f5f4e79b131200c625de39e0a4e;hpb=4cc632c9a1e1d93e9a43a402d1361f23afc50e5e;p=valse.git

diff --git a/pkg/R/selectVariables.R b/pkg/R/selectVariables.R
index 869e7bf..4e9b374 100644
--- a/pkg/R/selectVariables.R
+++ b/pkg/R/selectVariables.R
@@ -27,14 +27,14 @@ selectVariables = function(phiInit,rhoInit,piInit,gamInit,mini,maxi,gamma,glambd
 {
 	if (ncores > 1)
 	{
-		cl = parallel::makeCluster(ncores)
+		cl = parallel::makeCluster(ncores, outfile='')
 		parallel::clusterExport(cl=cl,
 			varlist=c("phiInit","rhoInit","gamInit","mini","maxi","glambda","X","Y","thresh","tau"),
 			envir=environment())
 	}
 
 	# Calcul pour un lambda
-	computeCoefs <-function(lambda)
+	computeCoefs <- function(lambda)
 	{
 		params = EMGLLF(phiInit,rhoInit,piInit,gamInit,mini,maxi,gamma,lambda,X,Y,tau)