data(hpo)
patients.character.vector <- 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"
)
patients <- term.set.list.from.character(hpo.terms, patients.character.vector)
informative.terms <- remove.uninformative.terms(hpo.terms, patients)Run the code above in your browser using DataLab