#' @return a list with several models, defined by phi, rho, pi, llh
#'
#' @export
constructionModelesLassoRank <- function(S, k, mini, maxi, X, Y, eps, rank.min, rank.max,
#' @return a list with several models, defined by phi, rho, pi, llh
#'
#' @export
constructionModelesLassoRank <- function(S, k, mini, maxi, X, Y, eps, rank.min, rank.max,