Detect if a vector of lower age bounds is plausibly of abridged ages.

A logical utility that checks if a given vector is of the lower bounds of abridged age groups or not.

is_abridged(Age)

Arguments

Age	integer. Vector of lower age bounds.

Value

Logical TRUE if abridged, FALSE otherwise.

Examples

# as expected, TRUE
is_abridged(c(0,1,5,10,15,20,25))
#> [1] TRUE
# standard 5, not abridged, FALSE
is_abridged(c(0,5,10,15,20,25))
#> [1] FALSE
# plausible, TRUE
is_abridged(c(1,5,10,15,20,25))
#> [1] TRUE
# plausible, TRUE
is_abridged(c(5,10,15,20,25))
#> [1] TRUE
# 10 year age group not abridged, FALSE
is_abridged(c(0,1,5,10,15,25))
#> [1] FALSE