R/findMaxElems.R

findMaxElems <- function(sets){
  stopifnot(class(sets) == "list")
  temp <- unlist(sets, use.names=FALSE)
  as.numeric(names(sort(table(temp),decreasing=TRUE)))
}
lukaszbrzozowski/SetSysVis documentation built on May 16, 2019, 12:09 a.m.