-valse <- function(X, Y, procedure = "LassoMLE", selecMod = "DDSE", gamma = 1, mini = 10,
- maxi = 50, eps = 1e-04, kmin = 2, kmax = 3, rank.min = 1, rank.max = 5, ncores_outer = 1,
- ncores_inner = 1, thresh = 1e-08, size_coll_mod = 10, fast = TRUE, verbose = FALSE,
- plot = TRUE)
- {
- p <- dim(X)[2]
- m <- dim(Y)[2]
- n <- dim(X)[1]
-
- if (verbose)
+runValse <- function(X, Y, procedure = "LassoMLE", selecMod = "DDSE", gamma = 1, mini = 10,
+ maxi = 50, eps = 1e-04, kmin = 2, kmax = 3, rank.min = 1, rank.max = 5, ncores_outer = 1,
+ ncores_inner = 1, thresh = 1e-08, grid_lambda = numeric(0), size_coll_mod = 10,
+ fast = TRUE, verbose = FALSE, plot = TRUE)
+{
+ n <- nrow(X)
+ p <- ncol(X)
+ m <- ncol(Y)
+
+ if (verbose)