Examples for 'base::duplicated'


Determine Duplicate Elements

Aliases: duplicated duplicated.default duplicated.data.frame duplicated.matrix duplicated.array anyDuplicated anyDuplicated.default anyDuplicated.array anyDuplicated.matrix anyDuplicated.data.frame

Keywords: logic manip

### ** Examples

x <- c(9:20, 1:5, 3:7, 0:8)
## extract unique elements
(xu <- x[!duplicated(x)])
 [1]  9 10 11 12 13 14 15 16 17 18 19 20  1  2  3  4  5  6  7  0  8
## similar, same elements but different order:
(xu2 <- x[!duplicated(x, fromLast = TRUE)])
 [1]  9 10 11 12 13 14 15 16 17 18 19 20  0  1  2  3  4  5  6  7  8
## xu == unique(x) but unique(x) is more efficient
stopifnot(identical(xu,  unique(x)),
          identical(xu2, unique(x, fromLast = TRUE)))

duplicated(iris)[140:143]
[1] FALSE FALSE FALSE  TRUE
duplicated(iris3, MARGIN = c(1, 3))
      Setosa Versicolor Virginica
 [1,]  FALSE      FALSE     FALSE
 [2,]  FALSE      FALSE     FALSE
 [3,]  FALSE      FALSE     FALSE
 [4,]  FALSE      FALSE     FALSE
 [5,]  FALSE      FALSE     FALSE
 [6,]  FALSE      FALSE     FALSE
 [7,]  FALSE      FALSE     FALSE
 [8,]  FALSE      FALSE     FALSE
 [9,]  FALSE      FALSE     FALSE
[10,]  FALSE      FALSE     FALSE
[11,]  FALSE      FALSE     FALSE
[12,]  FALSE      FALSE     FALSE
[13,]  FALSE      FALSE     FALSE
[14,]  FALSE      FALSE     FALSE
[15,]  FALSE      FALSE     FALSE
[16,]  FALSE      FALSE     FALSE
[17,]  FALSE      FALSE     FALSE
[18,]  FALSE      FALSE     FALSE
[19,]  FALSE      FALSE     FALSE
[20,]  FALSE      FALSE     FALSE
[21,]  FALSE      FALSE     FALSE
[22,]  FALSE      FALSE     FALSE
[23,]  FALSE      FALSE     FALSE
[24,]  FALSE      FALSE     FALSE
[25,]  FALSE      FALSE     FALSE
[26,]  FALSE      FALSE     FALSE
[27,]  FALSE      FALSE     FALSE
[28,]  FALSE      FALSE     FALSE
[29,]  FALSE      FALSE     FALSE
[30,]  FALSE      FALSE     FALSE
[31,]  FALSE      FALSE     FALSE
[32,]  FALSE      FALSE     FALSE
[33,]  FALSE      FALSE     FALSE
[34,]  FALSE      FALSE     FALSE
[35,]  FALSE      FALSE     FALSE
[36,]  FALSE      FALSE     FALSE
[37,]  FALSE      FALSE     FALSE
[38,]  FALSE      FALSE     FALSE
[39,]  FALSE      FALSE     FALSE
[40,]  FALSE      FALSE     FALSE
[41,]  FALSE      FALSE     FALSE
[42,]  FALSE      FALSE     FALSE
[43,]  FALSE      FALSE      TRUE
[44,]  FALSE      FALSE     FALSE
[45,]  FALSE      FALSE     FALSE
[46,]  FALSE      FALSE     FALSE
[47,]  FALSE      FALSE     FALSE
[48,]  FALSE      FALSE     FALSE
[49,]  FALSE      FALSE     FALSE
[50,]  FALSE      FALSE     FALSE
anyDuplicated(iris) ## 143
[1] 143
## Don't show: 
stopifnot(identical(anyDuplicated(iris), 143L),
          identical(anyDuplicated(iris3, MARGIN = c(1, 3)), 143L))
## End(Don't show)
anyDuplicated(x)
[1] 18
anyDuplicated(x, fromLast = TRUE)
[1] 22

[Package base version 4.2.3 Index]