# NOT RUN {
data(twb)
twb.shared <- shared.repertoire(twb)
G <- mutation.network(twb.shared)
get.people.names(G, 300, T) # "Subj.A|Subj.B"
get.people.names(G, 300, F) # list(c("Subj.A", "Subj.B"))
# }
Run the code above in your browser using DataLab