## sum_ on non-rational numeric vector
vector <- c(7, NaN, -Inf, 4)
sum_(vector)
## Min of vector with length 0
vector <- c()
# With a wrapped s
min_(vector)
## Max of vector with only NA
# With a wrapped s
max_(vector)
## Use of s when NA should not be removed
vector <- c(7, Inf, NA, 4)
# With a wrapped s
sum_(vector, ignore_na = FALSE)
Run the code above in your browser using DataLab