

   EExxttrraacctt UUnniiqquuee EElleemmeennttss

        unique(x)

   DDeessccrriippttiioonn::

        `unique' returns a vector like `x' but with duplicate
        elements removed.  If an element is equal to one with a
        smaller index, it is removed.

   SSeeee AAllssoo::

        `duplicated' which gives the indices of duplicated ele-
        ments.

   EExxaammpplleess::

        unique(c(3:5, 11:8, 8 + 0:5))
        length(unique(sample(100,100,replace=T)))# ~= 100(1 - 1/e) = 63.21
        my.unique <- function(x) x[!duplicated(x)]
        for(i in 1:4) { x <- rpois(100, pi); print(all(unique(x) == my.unique(x))) }

