R/setPair.R

Defines functions setPair

setPair <- function(setA, setB) {
  
  out <- data.frame(unique.A=length(setdiff(setA,setB)),
                    unique.B=length(setdiff(setB,setA)),
                    shared=length(intersect(setA,setB)))
  return(out)
}



#setPair(c(1:5), c(3:10))
davetgerrard/utilsGerrardDT documentation built on March 3, 2023, 5:12 p.m.