Defines functions mintersect

Documented in mintersect

mintersect <- function(...){
    wrk <- list(...)
    if(length(wrk)==0) # 2015-02-12 was: return(character(0))
        stop("no arguments supplied, at least one is required")

    res <- wrk[[1]]
    if(length(wrk) > 1)
        for(i in 2:length(wrk))
            res <- intersect(res, wrk[[i]])

Try the gbutils package in your browser

Any scripts or data that you put into this service are public.

gbutils documentation built on May 28, 2022, 1:13 a.m.