R/AllDiffs.R

In gfalbery/ggregplot:

AllDiffs <- function(Var1, Var2, Lengths = F){

  DiffList <- list()

  DiffList[[1]] <- setdiff(Var1, Var2)
  DiffList[[2]] <- intersect(Var1, Var2)
  DiffList[[3]] <- setdiff(Var2, Var1)

  if(Lengths) DiffList <- lapply(DiffList, length)

  return(Lengths)

}