{
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)