R/determine_age_group.R

In schifferl/LagSelectionBias:

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