R/setsetequal.R

Defines functions setsetequal

Documented in setsetequal

#' @export setsetequal
setsetequal <-
function (x, y) 
{
    if (!is.list(x) && !is.list(y)) 
        stop("Arguments must be lists")
    all(c(setmatch(x, y, 0L) > 0L, setmatch(y, x, 0L) > 0L))
}
rje42/rje documentation built on Aug. 15, 2017, 7:43 a.m.