# Load sample SNOMED CT dictionary
SNOMED <- sampleSNOMED()
# Example: anatomical site of a finding
findingSite <- function(x){
relatedConcepts(as.SNOMEDconcept(x),
typeId = as.SNOMEDconcept('Finding site'))
}
description(findingSite('Heart failure'))
# Heart structure (body structure)
Run the code above in your browser using DataLab