https://github.com/cran/fields
Raw File
Tip revision: 29f113694042e3b2d644ac644f506ed11e472440 authored by Doug Nychka on 15 May 2002, 16:33:19 UTC
version 1.2
Tip revision: 29f1136
dup.R
"dup" <-
function (dat) 
{
    dat <- match(dat, unique(dat))
    id <- order(dat)
    look <- c(FALSE, ifelse(diff(sort(dat)) == 0, TRUE, FALSE))
    dat[id] <- look
    as.logical(dat)
}
back to top