Tente a seguinte função:
primeira_linha_nao_nula <- function(m){
vetor <- apply(m, 1, function(x) return(all(x != 0)))
indice <- NULL
if(max(vetor) == 1){
indice <- order(vetor, decreasing = T)[1]
}
return(indicem[indice,])
}
A primeira linha percorre a matriz e cria um vetor, chamado vetor
, que é TRUE
quando a linha possui todos elementos diferentes de zero.
Em seguida ela verifica se existe pelo menos um TRUE
nesse vetor, para depois retornar o menor índice que é TRUE
.
> primeira_linha_nao_nula(a)
[1] 1 2 3 4
> primeira_linha_nao_nula(b)
[1] 1 2 3 4
> primeira_linha_nao_nula(d)
[1] 1 2 3 4