- # 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]]]
+ # 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]]]