R/sets.R

`as.vector.keyed` <- function(x,mode='any')names(x)

`%+%` <- function(x,y)UseMethod('%+%')
`%&%` <- function(x,y)UseMethod('%&%')
`%u%` <- function(x,y)UseMethod('%+%')
`%n%` <- function(x,y)UseMethod('%&%')
`%-%` <- function(x,y)UseMethod('%-%')
`%+%.default` <- function(x,y)union(x,y)
`%&%.default` <- function(x,y)intersect(x,y)
`%-%.default` <- function(x,y)setdiff(x,y)

Try the metrumrg package in your browser

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

metrumrg documentation built on May 2, 2019, 5:55 p.m.