Para contar sequências de valores repetidos, há a função [`rle`](https://stat.ethz.ch/R-manual/R-devel/library/base/html/rle.html). 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. ``` r 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 ``` <sup>Created on 2022-08-18 by the [reprex package](https://reprex.tidyverse.org) (v2.0.1)</sup> --- # Dados em formato `dput` dados <- structure(list( `1` = 1:7, `2` = c(10L, 0L, 40L, 0L, 2L, 10L, 0L), `3` = c(5L, 0L, 25L, 10L, 0L, 3L, 0L), `4` = c(0L, 0L, 5L, 6L, 0L, 15L, 0L), `5` = c(0L, 0L, 0L, 3L, 0L, 30L, 0L), `6` = c(25L, 0L, 1L, 0L, 3L, 3L, 0L), `7` = c(12L, 0L, 0L, 0L, 0L, 0L, 0L), `8` = c(0L, 1L, 32L, 2L, 0L, 0L, 18L)), class = "data.frame", row.names = c(NA, -7L))