is.unique: Fast check is vector unique

In jangorecki/dwtools: Data Warehouse related functions.

Description

Test if vector unique.

Usage

is.unique(x)

Arguments

x

vector

Examples

suppressPackageStartupMessages(library(dwtools))

x1 <- c("a","b","c","d","e")
x2 <- c(x1,"d")
is.unique(x1)
is.unique(x2)

# my previous approach
is.unq <- function(x) length(x)==length(unique(x))

x <- sample(1e2, 1e7, TRUE) # non-unq
system.time(is.unq(x))
system.time(is.unique(x))
x <- sample(1e7, 1e7, FALSE) # unq
system.time(is.unq(x))
system.time(is.unique(x))

jangorecki/dwtools documentation built on May 18, 2019, 12:24 p.m.