file.path <- system.file("extdata", "TCRB_sequencing", package = "LymphoSeq")
file.list <- readImmunoSeq(path = file.path)
productive.aa <- productiveSeq(file.list = file.list, aggregate = "aminoAcid")
top.seqs <- topSeqs(productive.seqs = productive.aa, top = 0.1)
sequence.matrix <- seqMatrix(productive.aa = productive.aa,
sequences = top.seqs$aminoAcid)
unique.seqs <- uniqueSeqs(productive.aa = productive.aa)
sequence.matrix <- seqMatrix(productive.aa = productive.aa,
sequences = unique.seqs$aminoAcid)
# It can be helpful to combine top.freq and sequence.matrix
top.freq <- topFreq(productive.aa = productive.aa, percent = 0)
sequence.matrix <- seqMatrix(productive.aa = productive.aa, sequences = top.freq$aminoAcid)
top.freq.matrix <- merge(top.freq, sequence.matrix)
Run the code above in your browser using DataLab