data(summarytab)
data(aaseqtab)
data(mutationtab)
data(clones.ind)
data(clones.allind)
## Read IMGT/HighV-QUEST data
tab<-readIMGT("PathTo/file.txt",filterNoResults=TRUE)
## Get information about functionality and filter for functional sequences
functionality<-sequences.functionality(data = summarytab$Functionality)
ProductiveSequences<-sequences.getProductives(summarytab)
## Gene usage
Vsubgroup.usage<-geneUsage(geneUsage = clones.ind$V_gene,
functionality = clones.ind$Functionality_all_sequences, level = "subgroup",
abundance="relative")
## Gene/gene combinations
VDcomb.tab<-sequences.geneComb(family1 = summarytab$V_GENE_and_allele,
family2 = summarytab$D_GENE_and_allele, level = "subgroup", abundance = "relative")
plotGeneComb(geneComb.tab=VDcomb.tab, color="red", withNA=FALSE,PDF="test")
## Mutation analysis
mutation.V<-sequences.mutation(mutationtab = mutationtab, summarytab = summarytab,
sequence = "V")
mutation.CDR1<-sequences.mutation(mutationtab = mutationtab, sequence = "CDR1",
functionality = TRUE, junctionFr = TRUE)
## Define clones and CDR3 length analysis of clones
clones.tab<-clones(aaseqtab=aaseqtab,summarytab=summarytab, identity=0.85, useJ=TRUE,
dispCDR3aa=TRUE, dispFunctionality.ratio=TRUE, dispFunctionality.list=TRUE)
plotClonesCDR3Length(CDR3Length = clones.ind$CDR3_length_AA,
functionality = clones.ind$Functionality_all_sequences,
color="gray",abundance="relative", PDF="test")
## Find shared clones between individuals
sharedclones<-clones.shared(clones.tab = clones.allind, identity = 0.85, useJ = TRUE,
dispD = TRUE, dispCDR3aa = TRUE)
sharedclones.summary<-clones.shared.summary(shared.tab = sharedclones)
## True diversity
trueDiv<-trueDiversity(sequences = aaseqtab$CDR3_IMGT, order = 1)
plotTrueDiversity(trueDiversity.tab=trueDiv,color="red",PDF="test")Run the code above in your browser using DataLab