x <- c("15-19", "5-9", "50+")
age_lower(x)
age_mid(x)
age_upper(x)
## non-standard formats are OK
age_lower(c("infants", "100 and over"))
df <- data.frame(age = c("1-4", "10-14", "5-9", "0"),
rate = c(0.023, 0.015, 0.007, 0.068))
df
subset(df, age_lower(age) >= 5)
Run the code above in your browser using DataLab