source('~/valse/pkg/R/gridLambda.R')
grid_lambda <<- gridLambda(phiInit, rhoInit, piInit, gamInit, X, Y, gamma, mini, maxi, eps)
- if (length(grid_lambda)>50){
- grid_lambda = grid_lambda[seq(1, length(grid_lambda), length.out = 50)]
- }
+ # if (length(grid_lambda)>50){
+ # grid_lambda = grid_lambda[seq(1, length(grid_lambda), length.out = 50)]
+ # }
print("Compute relevant parameters")
#select variables according to each regularization parameter
#from the grid: A1 corresponding to selected variables, and