data-raw/usa_age_group.R

In schifferl/LagSelectionBias:

usa_age_group <- function(age_group_var) {
    if(age_group_var == 000){
        "< 1 year"
    } else if(between(age_group_var, 1, 4)) {
        "1-4 years"
    } else if(between(age_group_var, 5, 9)) {
        "5-9 years"
    } else if(between(age_group_var, 10, 14)) {
        "10-14 years"
    } else if(between(age_group_var, 15, 19)) {
        "15-19 years"
    } else if(between(age_group_var, 20, 24)) {
        "20-24 years"
    } else if(between(age_group_var, 25, 34)) {
        "25-34 years"
    } else if(between(age_group_var, 35, 44)) {
        "35-44 years"
    } else if(between(age_group_var, 45, 54)) {
        "45-54 years"
    } else if(between(age_group_var, 55, 64)) {
        "55-64 years"
    } else if(between(age_group_var, 65, 74)) {
        "65-74 years"
    } else if(between(age_group_var, 75, 84)) {
        "75-84 years"
    } else if(age_group_var >= 85) {
        "85+ years"
    } else {
        "Not Stated"
    }
}