- #from the grid: A1 corresponding to selected variables, and
- #A2 corresponding to unselected variables.
-
- params = selectiontotale(phiInit,rhoInit,piInit,gamInit,mini,maxi,gamma,grid_lambda,X,Y,1e-8,eps)
- #params2 = selectVariables(phiInit,rhoInit,piInit,gamInit,mini,maxi,gamma,grid_lambda[seq(1,length(grid_lambda), by=3)],X,Y,1e-8,eps)
- ## etrange : params et params 2 sont différents ...
- selected <- params$selected
- Rho <- params$Rho
- Pi <- params$Pi
+ #from the grid: S$selected corresponding to selected variables
+ S = selectVariables(P$phiInit, P$rhoInit, P$piInit, P$gamInit, mini, maxi, gamma,
+ grid_lambda, X, Y, 1e-8, eps, ncores_inner) #TODO: 1e-8 as arg?! eps?