R/add_age11.r

In injuryepi/injuryepi: Miscellaneous functions for Injury Epi

add_age11 <- function(data, age = age){
  
  suppressWarnings(suppressMessages(require(classInt)))
  suppressWarnings(suppressMessages(require(dplyr)))
  suppressWarnings(suppressMessages(require(forcats)))
  
  age <- enquo(age)
  
  age <- data %>% pull(!!age)
  
  agecut11 <- c(0,.99, 4, 14,24,34,44,54,64,74,84, max(age, na.rm = T))
  int11 <- classIntervals(age, n = 11, style="fixed", fixedBreaks=agecut11, intervalClosure = "right")
  
  agegrp11 <- as.factor(findCols(int11))
  
  mutate(data, 
         agegrp11 = agegrp11,
         age11 = fct_recode(agegrp11, "<1" = "1", 
                            "01-04"  = "2",
                            "05-14" = "3",
                            "15-24" = "4",
                            "25-34" = "5",
                            "35-44" = "6",
                            "45-54" = "7",
                            "55-64" = "8",
                            "65-74" = "9",
                            "75-84" = "10",
                            "85+"   = "11"))
  
  
}