data(hpo.terms)
phenotype.strings <- c(
A="HP:0001382,HP:0004272,HP:0007917,HP:0004912,HP:0001596",
B="HP:0001382,HP:0004272,HP:0002165,HP:0004800,HP:0004912",
C="HP:0004800,HP:0001382,HP:0004912,HP:0007917,HP:0008743",
D="HP:0001257,HP:0001382,HP:0007917,HP:0012623,HP:0002165",
E="HP:0007917,HP:0004800,HP:0004272,HP:0001596,HP:0002165"
)
hpo.phenotypes <- term.set.list.from.character(phenotype.strings)
get.hpo.graph(
hpo.terms=hpo.terms,
plotting.context=list(hpo.phenotypes=hpo.phenotypes)
)Run the code above in your browser using DataLab