+ 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)
+ {
+ params = EMGLLF(phiInit,rhoInit,piInit,gamInit,mini,maxi,gamma,lambda,X,Y,tau)
+