Range 2

Employs base::min() and base::max(). However, base::range(), there is no argument for removing Inf values.

Usage

range2(x, na.rm = FALSE)

Arguments

x

A numeric (or character) vector (see Note in base::min)

na.rm

Logical, if TRUE removes missing values

Value

A numeric vector of length 2 of the minimum and maximum values, respectively

Examples

# \donttest{
x <- rep(1:1e5, 100)
system.time(rep(range(x),  100))
#>    user  system elapsed 
#>   0.019   0.003   0.022 
system.time(rep(range2(x), 100))
#>    user  system elapsed 
#>   0.011   0.000   0.011 
x[sample(x, 1e5)] <- NA

system.time(rep(range(x, na.rm = TRUE), 100))
#>    user  system elapsed 
#>   0.351   0.014   0.365 
system.time(rep(range2(x, na.rm = TRUE), 100))
#>    user  system elapsed 
#>   0.012   0.000   0.012 
# }