Skip to main content
corrigindo para mandar a linha inteira
Fonte Link
Daniel Falbel
  • 12,5mil
  • 25
  • 57

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

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(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] 2
> primeira_linha_nao_nula(b)
[1] 1
> primeira_linha_nao_nula(d)
[1] 1

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(m[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
Fonte Link
Daniel Falbel
  • 12,5mil
  • 25
  • 57

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(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] 2
> primeira_linha_nao_nula(b)
[1] 1
> primeira_linha_nao_nula(d)
[1] 1