other/bench-identical.R

# benchmark identical_all()

library(bench)
library(rwmisc)

x <- runif(1e6)
y <- x
l <- list(x, y)

bench::mark(
  identical(x, y),
  identical_all(l)
)
rwright88/rwmisc documentation built on Dec. 14, 2019, 5:31 p.m.