R/crosscheck.R

In liuguofang/figsci: Let plotting figure and scientific visualization and information gain easier and more efficient.

Defines functions crosscheck

Documented in crosscheck

crosscheck <- function(x, y) {
	library(Hmisc)
	result <- list(x.not.y = x[x %nin% y], y.not.x = y[y %nin% x])
	names(result) <- c(sprintf("%s.not.%s", deparse(substitute(x)),  deparse(substitute(y))),
			sprintf("%s.not.%s",  deparse(substitute(y)), deparse(substitute(x))))
	result
}