R/Intersect.R

In AEBilgrau/Bmisc: Biostatistical miscellaneous functions

#' @rdname ListSetOperations
#' @return \code{Intersect} returns the intersection of all vectors in \code{x}.
#' @export
Intersect <- function (x) {  
  if (length(x) == 1) {
    unlist(x)
  } else if (length(x) == 2) {
    intersect(x[[1]], x[[2]])
  } else if (length(x) > 2){
    intersect(x[[1]], Intersect(x[-1]))
  }
}