Employs min()
and max()
. However, base::range()
, there is no argument
for removing Inf
values.
Examples
# \donttest{
x <- rep(1:1e5, 100)
system.time(rep(range(x), 100))
#> user system elapsed
#> 0.023 0.004 0.028
system.time(rep(range2(x), 100))
#> user system elapsed
#> 0.013 0.000 0.012
x[sample(x, 1e5)] <- NA
system.time(rep(range(x, na.rm = TRUE), 100))
#> user system elapsed
#> 0.300 0.021 0.320
system.time(rep(range2(x, na.rm = TRUE), 100))
#> user system elapsed
#> 0.014 0.000 0.013
# }