data(hpo)
body.height <- hpo.terms$id[hpo.terms$name == "Abnormality of body height"]
print(
paste(
hpo.terms$name[hpo.terms$id == body.height],
"-> ",
get.node.friendly.long.names(
hpo.terms,
body.height
),
sep=""
)
)Run the code above in your browser using DataLab