# NOT RUN {
# Spectratyping of distribution of length of CDR3 nucleotide sequences
# by V-beta-segments.
immdata <- lapply(immdata, function (x) {
x$Length <- nchar(x$CDR3.nucleotide.sequence)
x
} )
spectratyping(immdata, 'Length', 'Vb')
# Spectratyping of distribution of Total insertions
# by J-beta-segments.
spectratyping(immdata, 'Total.insertions', 'Jb')
# }
Run the code above in your browser using DataLab