- # TODO: chuis pas sûr du tout des lignes suivantes...
- # J'ai l'impression qu'il manque des infos
- ## C'est surtout que la pénalité est la mauvaise, la c'est celle du Lasso, nous on veut ici
- ##celle de l'heuristique de pentes
- #sumPen = sapply( models, function(model)
- # sum( model$pi^gamma * sapply(1:k, function(r) sum(abs(model$phi[,,r]))) ) )