set functions

Jonathan Rougier
Thu, 6 Jan 2000 09:19:33 +0000 (GMT)

Hi Martin,

> However, I think "equiv" is not specific enough (could mean "equivalence of
> arbitrary R objects").
> Wouldn't  "setequiv" or "setequal" be better ?
> ((and would you provide (to R-core)  patches to
>     src/library/base/R/sets.R and src/library/base/man/sets.Rd))

I think, after all of the discussion, particularly Brian's helpful
interventions, the original function prevails, although Peter's suggested
sorting function was very instructive.

"setequal" <- function(x, y) all(c(match(x, y, 0)>0, match(y, x, 0)>0))

The help function needs the following modifications:


\description{Performs set union, intersection, difference, equality and
membership on two vectors.}

union(x, y)
intersect(x, y)
setdiff(x, y)
setequal(x, y)
is.element(x, y)

%% There appears to be an extra tab or other white space in the arguments
%% field.

x <- sample(1:20, 10)
y <- sample(3:23, 7)
union(x, y)
intersect(x, y)
setdiff(x, y)
setequal(x, y)
is.element(y, x)

Cheers, Jonathan.

Jonathan Rougier                       Science Laboratories
Department of Mathematical Sciences    South Road
University of Durham                   Durham DH1 3LE

"[B]egin upon the precept ... that the things we see are to be 
 weighed in the scale with what we know"  (Meredith, 1879, The Egoist)

r-devel mailing list -- Read
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: