file.path <- system.file("extdata", "TCRB_sequencing", package = "LymphoSeq")
file.list <- readImmunoSeq(path = file.path)
productive.nt <- productiveSeq(file.list = file.list, aggregate = "nucleotide")
top.seqs <- topSeqs(productive.seqs = productive.nt, top = 1)
chordDiagramVDJ(sample = top.seqs, association = "VJ", colors = c("red", "blue"))
# Remove "TCRB" from gene family name
top.seqs <- as.data.frame(apply(top.seqs, 2, function(x) gsub("TCRB", "", x)))
chordDiagramVDJ(sample = top.seqs, association = "VJ", colors = c("red", "blue"))
Run the code above in your browser using DataLab