compare.R

# from a tweet I found around, by @WeAreRLadies maybe?

x <- 1:4
y <- 3:6

compare <- function(x, y) {
  list(
    "These values are in x but not in y" = setdiff(x, y),
    "These values are in y but not in x" = setdiff(y, x),
    "These values are shared between x and y" = intersect(x, y),
    "Combined, x and y return these values" = union(x, y)
  )
}

compare(x, y)