- print(k)
- print("Parameters initialization")
- #smallEM initializes parameters by k-means and regression model in each component,
+ cl = parallel::makeCluster(ncores_outer)
+ parallel::clusterExport( cl=cl, envir=environment(), varlist=c("X","Y","procedure",
+ "selecMod","gamma","mini","maxi","eps","kmin","kmax","rang.min","rang.max",
+ "ncores_outer","ncores_inner","verbose","p","m","k","tableauRecap") )
+ }
+
+ # Compute models with k components
+ computeModels <- function(k)
+ {
+ if (ncores_outer > 1)
+ require("valse") #nodes start with an empty environment
+
+ if (verbose)
+ print(paste("Parameters initialization for k =",k))
+ #smallEM initializes parameters by k-means and regression model in each component,