file.path <- system.file("extdata", "TCRB_sequencing", package = "LymphoSeq")
file.list <- readImmunoSeq(path = file.path)
productive.aa <- productiveSeq(file.list, aggregate = "aminoAcid")
similarityScore(productive.aa[["TCRB_Day32_Unsorted"]], productive.aa[["TCRB_Day83_Unsorted"]])
Run the code above in your browser using DataLab