+ cl = parallel::makeCluster(ncores_k)
+ parallel::clusterExport( cl=cl, envir=environment(), varlist=c("X","Y","procedure",
+ "selecMod","gamma","mini","maxi","eps","kmin","kmax","rang.min","rang.max",
+ "ncores_k","ncores_lambda","verbose","p","m","k","tableauRecap") )
+ }
+
+ # Compute model with k components
+ computeModel <- function(k)
+ {
+ if (ncores_k > 1)
+ require("valse") #nodes start with an empty environment
+
+ if (verbose)
+ print(paste("Parameters initialization for k =",k))