# Read the package's example data
clonotypes <- read_clonotypes(system.file('extdata', 'clonotypes.txt.gz', package = "clonotypeR"))
# Inspect the alignment scores
hist(clonotypes$score)
# Count J segments
j <- clonotype_table(levels(clonotypes$lib), "J", data=clonotypes)
# Normalise counts in parts per million
J <- data.frame(prop.table(as.matrix(j),2) * 1000000)
Run the code above in your browser using DataLab