- model = constructionModelesLassoRank(S$Pi, S$Rho, mini, maxi, X, Y, eps, A1,
- rank.min, rank.max)
-
- ################################################
- ### Regarder la SUITE
- phi = runProcedure2()$phi
- Phi2 = Phi
- if (dim(Phi2)[1] == 0)
- Phi[, , 1:k,] <- phi
- else
- {
- Phi <- array(0, dim = c(p, m, kmax, dim(Phi2)[4] + dim(phi)[4]))
- Phi[, , 1:(dim(Phi2)[3]), 1:(dim(Phi2)[4])] <<- Phi2
- Phi[, , 1:k,-(1:(dim(Phi2)[4]))] <<- phi
- }
+ models <- constructionModelesLassoRank(S$Pi, S$Rho, mini, maxi, X, Y, eps, A1,
+ rank.min, rank.max, ncores_inner, verbose)