Quelque chose du style :
Code : Tout sélectionner
dimnames(intersect)[[1]][apply(intersect, 1, any)]
PS : peut-être éviter d'appeler la matrice 'intersect', pour éviter toute confusion avec la fonction du même nom.
Code : Tout sélectionner
dimnames(intersect)[[1]][apply(intersect, 1, any)]
Code : Tout sélectionner
"[0-9]{2} *[0-9]{3}"
Code : Tout sélectionner
ord_names <- c("DA3", "DA1", "MZ4", "MZ1", "OC1")
gna_ord <- gna[ord_names, ord_names]
Code : Tout sélectionner
for(i in 611 )
Code : Tout sélectionner
for (i in 1:611)
Code : Tout sélectionner
# création d'une boucle pour générer toutes les matrices en une seule fois
listeMat <- list()
for (i in 1:3) listeMat[[i]] <- mat[mat[ ,2] >= mat[ ,i+2], ]
listeMat