file.path <- system.file("extdata", "TCRB_sequencing", package = "LymphoSeq")
file.list <- readImmunoSeq(path = file.path)
aa1 <- "CASSPVSNEQFF"
aa2 <- "CASSQEVPPYQAFF"
searchSeq(list = file.list, sequence = aa1, type = "aminoAcid",
match = "global", editDistance = 0)
searchSeq(list = file.list, sequence = c(aa1, aa2),
type = "aminoAcid", match = "global", editDistance = 0)
searchSeq(list = file.list, sequence = aa1, type = "aminoAcid", editDistance = 1)
nt <- "CTGATTCTGGAGTCCGCCAGCACCAACCAGACATCTATGTACCTCTGTGCCAGCAGTCCGGTAAGCAATGAGCAGTTCTTCGGGCCA"
searchSeq(list = file.list, sequence = nt, type = "nucleotide", editDistance = 3)
searchSeq(list = file.list, sequence = "CASSPVS", type = "aminoAcid",
match = "partial", editDistance = 0)
searchSeq(list = file.list, sequence = nt, type = "nucleotide", editDistance = 0)
Run the code above in your browser using DataLab