R/set.R

In gmonette/yscs: Collection of tools used in York University's Statistical Consulting Service

###
### set: part
###

#' Intersection and symmetric differences of two sets
#'
#' @param A
#' @param B
#' @export
part <- function( A, B) {
  # partitions of two sets
  if ( is.factor(A)) A <- as.character(A)
  if (is.factor(B)) B <- as.character(B)
  ret <- list( "A and B" = intersect(A,B),
               "A - B" = setdiff( A, B),
               "B - A" = setdiff(B, A))
  attr(ret,"N") <- sapply(ret, length)
  ret
}