Remove zeros and get range and number of NAs
range_nanozero(x)an integer vector without zeros and with an attribute range_na() with three
elements:
min integer
max integer
number of NAs
range_nanozero(c(0L, 1L, 2L, NA))
#> [1] 1 2 NA
#> attr(,"range_na")
#> [1] 1 2 1