R/getDDDs.R

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)
}
DHLab-CGU/pharm documentation built on July 2, 2022, 7:16 a.m.