if (FALSE) {
miniCDB <- createCDB(SNOMED = sampleSNOMED())
D <- decompose(as.SNOMEDconcept('Cor pulmonale',
SNOMED = sampleSNOMED()), CDB = miniCDB, SNOMED = sampleSNOMED())
}
# -------------------------------------------------------
# 83291003 | Cor pulmonale (disorder)
# -------------------------------------------------------
# Root : 367363000 | Right ventricular failure (disorder)
# - Due to : 19829001 | Disorder of lung (disorder)
Run the code above in your browser using DataLab