fonction rle()

[Delalande Lucas]

Bonjour,

J'ai un vecteur :
a<-c(0,0,1,1,1,1,0,0,1,1,0,1,1,1,1,1,0)
J'utilise la fonction rle()
b<-rle(a)
ce qui donne b : $lengths : 2 4 2 2 1 5 1
$values : 0 1 0 1 0 1 0

Je souhaite avoir un vecteur qui m'identifie les positions dans "a" des séries de 4 1 (4x1 d'affilé)
soit :
c<-c(3,4,5,6,12,13,14,15,16)

Une idée ?

Merci!

[Logez Maxime]

Bonjour,

une possibilité avec le package stringi :

Code : Tout sélectionner

b <- paste(a, collapse = "")
res <- stri_locate_all_regex(b, pattern = "1{4,}")
res
[[1]]
     start end
[1,]     3   6
[2,]    12  16
unlist(mapply(seq, res[[1]][,1], res[[1]][,2]))
[1]  3  4  5  6 12 13 14 15 16


Après ce code fonctionne mais ne détecte pas réellement les séries de 4 valeurs consécutives parce que si tu reste sur 4 '1' stricts "1{4}", la série de 13 à 16 n'est pas détectée.

Cordialement,
Maxime

[Pierre-Yves Berrard]

Une autre possibilité :

Code : Tout sélectionner

fins <- cumsum(b$lengths)
debuts <- fins - b$lengths + 1
indices <- mapply(seq, debuts, fins)

indices_4x1 <- indices[b$values == 1 & b$lengths >= 4]
(res <- unlist(indices_4x1))

[Delalande Lucas]

Super, merci beaucoup !

Et si je veux obtenir la série plus la position de l’élément d’après.. c'est a dire :
res<- 3 4 5 6 7 12 13 14 15 16 17

(élément 7 et 17 en plus)

[Logez Maxime]

re,

Code : Tout sélectionner

unlist(mapply(seq, res[[1]][,1], res[[1]][,2] +1))


Cordialement,
Maxime

[Delalande Lucas]

tout simplement , merci beaucoup !