#' ANZAHL EPRC
#'
#' @author [MAS BSV](mailto:sekretariat.mas@bsv.admin.ch)
#' 
#' @return a `tidylist` containing the following tidy data frames:
#'   - `OPT_UNAB_FRAGEN_EPRC_AVS`
#'   
#' @export

mod_anzahl_eprc <- function(PARAM_GLOBAL,
                            PARAM_AHV21_ANZAHL_EPRC,
                            EPRC_PROJECTION_FLEX) {
  mod_init()

  OPT_UNAB_FRAGEN_EPRC_AVS <- EPRC_PROJECTION_FLEX %>%
    group_by(jahr) %>%
    summarise(wert = sum(eprc, na.rm = TRUE))

  mod_return(OPT_UNAB_FRAGEN_EPRC_AVS)
}
