data(hpo)
migraine.terms <- get.ancestors(hpo.terms, hpo.terms$id[hpo.terms$name == "Migraine"])
migraine.adj.mat <- get.term.adjacency.matrix(hpo.terms, migraine.terms)
#plot simple graph of migraine terms
plot(
new(
"graphAM",
adjMat=migraine.adj.mat,
edgemode="directed"
)
)Run the code above in your browser using DataLab