file.path <- system.file("extdata", "TCRB_sequencing", package = "LymphoSeq")
file.list <- readImmunoSeq(path = file.path)
searchSeq(list = file.list, sequence = "CASSDLIGNGKLFF")
cleansed <- removeSeq(file.list = file.list, sequence = "CASSDLIGNGKLFF")
searchSeq(list = cleansed, sequence = "CASSDLIGNGKLFF")
Run the code above in your browser using DataLab