R/getDDDs.R

In DHLab-CGU/pharm: pharm

Defines functions getDDDs

Documented in getDDDs

#' @name calDDDsAccumulation
#' @export
getDDDs <- function(atc){

  ddd <- atc%>%
    left_join(unique(resATC_DDD), by = c("ATC" = "ATC_CODE") )
  return(ddd)
}