A função all.equal
dá o resultado que tu deseja. Eu não utilizei o mat
do teu exemplo porque meu computador, mesmo com a semente ajustada, gera números aleatórios diferentes do teu. Por isso, criei uma nova matriz com valores bem determinados.
mat <- matrix(1:50, ncol=5)
vec1 <- c(1, 2, 3, 4, 5)
vec2 <- c(1, 11, 21, 31, 41)
vec3 <- c(5, 15, 25, 35, 45)
which(apply(mat, 1, function(x) all.equal(x, vec1)) == "TRUE")
integer(0)
which(apply(mat, 1, function(x) all.equal(x, vec2)) == "TRUE")
[1] 1
which(apply(mat, 1, function(x) all.equal(x, vec3)) == "TRUE")
[1] 5
O que a função all.equal
faz é comparar dois objetos no R
para ver se eles são razoavelmente iguais. O bom desta função é que ela tem um argumento chamado tolerance
(que eu utilizo abaixo) para resolver justamente o problema de tolerância que pode aparecer nas tuas simulações.
Utilizando o apply
, eu consigo aplicar a função all.equal
a todas as linhas da matriz, sem necessitar de um loop.
Segue abaixo uma sugestão de função para reproduzir este resultado:
linha <- function(matriz, vetor){
aux <- which(apply(matriz, 1, function(matriz) all.equal(matriz, vetor, tolerance=1e-5)) == "TRUE")
if (length(aux) > 0){
resposta <- aux
} else {
resposta <- "nao existe"
}
return(resposta)
}
linha(mat, vec1)
[1] "nao existe"
linha(mat, vec2)
[1] 1
linha(mat, vec3)
[1] 5
Para descobrir se ao menos um elemento do vetor está na matriz, utilize um código similar a este acima, mas sem a função all.equal
:
which(apply(mat, 1, function(x) x == vec1))
[1] 1
which(apply(mat, 1, function(x) x == vec2))
[1] 1 2 3 4 5
which(apply(mat, 1, function(x) x == vec3))
[1] 21 22 23 24 25
Assim tu vai saber exatamente quais as posições de mat
que possuem elementos de vec
.