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"
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.