R/countByAgeClass.R

In covid19br/now_fcts: Auxiliary functions for analyzing COVID-19 data from different sources

#' countByAgeClass
#' @param df data.frame
#' @param age_table age table
#'
#' @export
countByAgeClass = function(df, age_table = age_table){
  out = data.frame(0, 0, 0, 0, 0, 0, 0, 0, 0)
  colnames(out) = age_table$ID
  counts = table(df$age_class)
  out = out + counts[names(out)]
  out[is.na(out)] = 0
  return(out)
}