data(hpo)
patients.character.vector <- c(
Term.Set.A=
"HP:0001382,HP:0004272,HP:0004912,HP:0007917",
Term.Set.B=
"HP:0001382",
Duplicate.Of.Term.Set.A=
"HP:0001382,HP:0004272,HP:0007917,HP:0004912"
)
patient.hpo.terms <- term.set.list.from.character(hpo.terms, patients.character.vector)
no.dupes <- remove.duplicate.term.sets(hpo.terms, patient.hpo.terms)Run the code above in your browser using DataLab