Skip to main content
1 de 5
Rui Barradas
  • 19mil
  • 2
  • 14
  • 28

Para contar sequências de valores repetidos, há a função rle. Aplicando essa função a cada linha, tem-se as repetições de cada valor. Depois é ver quais correspondem a zeros e quantas dessas são maiores que 5.

Nos dados da pergunta há uma sequência de zeros maiores que 5 nas 2ª e última linhas.

x<-'1   2   3   4   5   6   7   8
1   10  5   0   0   25  12  0
2   0   0   0   0   0   0   1
3   40  25  5   0   1   0   32
4   0   10  6   3   0   0   2
5   2   0   0   0   3   0   0
6   10  3   15  30  3   0   0
7   0   0   0   0   0   0   18'
dados <- read.table(textConnection(x), header = TRUE, check.names = FALSE)

r <- apply(dados, 1, rle)
sapply(r, \(x) sum(x$lengths[x$values == 0] > 5))
#> [1] 0 1 0 0 0 0 1

Created on 2022-08-18 by the reprex package (v2.0.1)

Rui Barradas
  • 19mil
  • 2
  • 14
  • 28