# Load example data
clonotypes.long <- read_clonotypes(system.file('extdata', 'clonotypes.txt.gz', package = "clonotypeR"))
clonotypes <- clonotype_table(levels(clonotypes.long$lib), data=clonotypes.long)
summary(clonotypes)
# List clonotypes found in library A.
unique_clonotypes("A", data=clonotypes)
# List clonotypes found in library A or B.
unique_clonotypes("A","B", data=clonotypes)
Run the code above in your browser using DataLab