### hypertensionATC.R ---
#----------------------------------------------------------------------
## Author: Christian Torp-Pedersen
## Created: 12.8.19
## Version:
## Last-Updated: 12.08.19
## By: Thomas Alexander Gerds
## Update #: 1
#----------------------------------------------------------------------
##
### Commentary:
##
### Change Log:
#----------------------------------------------------------------------
##
### Code:
#' @export
hypertensionATC <- list(
AntiAdrenerg=c('C02A','C02B','C02C'),
Diuretic=c('C02DA','C03A','C03B','C03D','C03E','C03X','C02DA','C07B','C07C','C07D','C08G','C09BA','C09DA','C09XA52','C02L'),
Vasodilator=c('C02DB','C02DD','C02DG'),
BetaBlocker=c('C07A','C07B','C07C','C07D','C07F'),
CalciumAntagonist=c('C07FB','C08','C08G','C09BB','C09DB'),
ReninAngiotensinInhibitor=c('C09AA','C09BA','C09BB','C09CA','C09DA','C09DB','C09XA02','C09XA52')
)
######################################################################
### hypertensionATC.R ends here
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.