individuo[[1]]= [​8 9 6 0 8 7 8 0 9 2 6 6 0 7 8 2 8 1 3 6 3 2 3 2 0 6 3 3 8 7​]

Gostaria de detectar (realizar a contagem de sequencias dada um tamanho de cadeia).

Baseado nos seguintes filtros:

1) tamanho da cadeia = 2 

2) pegar somente os valores iguais ou abaixo de 4

Ai ficaria assim:   [​8 9 6 0 8 7 8 0 9 2 6 6 0 7 8 2 8 1 3 6 3 2 3 2 0 6 3 3 8 7​]

Tentei fazer começar com o which() para pegar as posicoes em sequencia:

which(individuo[[1]]<=4)  e com rle(individuo[[1]]), este ultimo só funciona para sequencias de numeros iguais.

​Porém, ainda nao encontrei uma maneira de detectar sequencias baseados no tamanho da cadeia. Como setei lá em cima(tamanho da cadeia = 2), então o output seria essas 4 sequencias: 

[1  3  3  2  3  2  3  3]. Teria portanto, 8 numeros com 4 sequencias.

Alguem pode ajudar? :/

​