data-raw/cps_age_group.R

In schifferl/LagSelectionBias:

cps_age_group <- function(age_group_var) {
    if(age_group_var == 000){
        "< 1 year"
    } else if(between(age_group_var, 001, 004)) {
        "1-4 years"
    } else if(between(age_group_var, 005, 009)) {
        "5-9 years"
    } else if(between(age_group_var, 010, 014)) {
        "10-14 years"
    } else if(between(age_group_var, 015, 019)) {
        "15-19 years"
    } else if(between(age_group_var, 020, 024)) {
        "20-24 years"
    } else if(between(age_group_var, 025, 034)) {
        "25-34 years"
    } else if(between(age_group_var, 035, 044)) {
        "35-44 years"
    } else if(between(age_group_var, 045, 054)) {
        "45-54 years"
    } else if(between(age_group_var, 055, 064)) {
        "55-64 years"
    } else if(between(age_group_var, 065, 074)) {
        "65-74 years"
    } else if(between(age_group_var, 075, 084)) {
        "75-84 years"
    } else if(age_group_var >= 085) {
        "85+ years"
    } else {
        "Not Stated"
    }
}