Tengo un dataframe como éste:
> print(A)
5 3 7 6 11 4 20 8 16 18
r01 1 1 1 1 1 1 1 1 1 0
r02 0 0 0 0 0 0 0 1 1 0
r03 1 0 1 0 1 1 0 0 0 0
r04 0 1 0 0 0 1 0 1 0 1
r05 1 1 0 1 1 1 0 0 1 1
Y otro como éste:
> print(B)
head_req_ID tail_req_ID
1 r04 r01
2 r01 r02
3 r05 r03
Para cada columna de A tengo que comprobar con los datos de B.
B es una estructura que indica los requisitos: nos indica que, para poder tener 1
en r01
, tiene que estar r04
a 1
. Es decir,
siempre tiene que estar el elemento de la primera columna para poder tener el de la segunda columna,
y así para todas las filas de B. Pongo un ejemplo gráfico
EDIT
Probé lo siguiente:
checkImp <- function(x,y,z){
print(c("Columna de A",x))
print(c("Primer elemento de B",y))
print(c("Segundo elemeno de B",z))
print(c("Obtengo el primer índice",indice1 <- which(data$req_ID %in% y)))
print(c("Obtengo el segundo índice",indice2 <- which(data$req_ID %in% z)))
if(x[as.numeric(indice1)] == 0 & x[as.numeric(indice2)] != 0){
x[indice2] <- 0
}
}
mapply(checkImp,A,B[,1],B[,2])
Print output
[1] "Columna de A" "1" "0" "1" "1" "1" "0" "0" "1"
[10] "0" "1" "0" "1" "0" "0" "1" "0" "0"
[19] "0" "0" "1"
[1] "Primer elemento de B" "r04"
[1] "Segundo elemento de B" "r01"
El problema está en que sólo puedo comparar la columna de A con el primera fila de B, necesito comparar la columna de A con TODOS los datos de B.
B
tiene solo 3 filas, entiendo que solo aplicarías el algoritmo sobre las tres primeras filas deA
?