- # Pour chaque lambda de la grille, on calcule les coefficients
- out <-
- if (ncores > 1)
- parLapply(cl, glambda, computeCoefs)
- else
- lapply(glambda, computeCoefs)
- if (ncores > 1)
- parallel::stopCluster(cl)
-
- # Suppression doublons
- sha1_array <- lapply(out, digest::sha1)
- out[ !duplicated(sha1_array) ]
-
- out
+ # For each lambda in the grid, we compute the coefficients
+ out <- if (ncores > 1)
+ parLapply(cl, glambda, computeCoefs) else lapply(glambda, computeCoefs)
+ if (ncores > 1)
+ parallel::stopCluster(cl)
+ # Suppress models which are computed twice En fait, ca ca fait la comparaison de
+ # tous les parametres On veut juste supprimer ceux qui ont les memes variables
+ # sélectionnées sha1_array <- lapply(out, digest::sha1) out[
+ # duplicated(sha1_array) ]
+ selec <- lapply(out, function(model) model$selected)
+ ind_dup <- duplicated(selec)
+ ind_uniq <- which(!ind_dup)
+ out2 <- list()
+ for (l in 1:length(ind_uniq))
+ out2[[l]] <- out[[ind_uniq[l]]]
+ out2