Turn a continuous variable into a labelled factor variable (wrapper for findInterval)

make_age_groups.R

make_age_group <- function(ages, min_val = seq(10, 100, 10)) {
  x <- findInterval(ages, min_val)
  y <- setNames(as.data.frame.list(aggregate(ages, list(x), range)), c('group', 'min', 'max'))
  y$label <- ifelse(y$min == y$max, y$min, paste0(y$min,'-',y$max))
  return(factor(x, y$group, y$label))
}