def <- MedicalDefinition(terms = list(c("angina", "unstable"), c("angina", "Crescendo "),
c("angina", "Refractory")),
codes = list("G33..00", "G330.00", "%r212H", "-G617"))
class(def)
Run the code above in your browser using DataLab