data(learning.test)
X = as.factor(sample(c("x1", "x2"), nrow(learning.test), replace = TRUE))
relevant("A", data = cbind(learning.test, X))
# [1] "B" "D" "E" "C" "F"
relevant("A", context = "B", data = learning.test,)
# [1] "D" "C"Run the code above in your browser using DataLab