# Subset example data from alakazam
library(alakazam)
db <- subset(ExampleDb, ISOTYPE %in% c("IgA", "IgG"))
# Calculate BASELINe
baseline <- calcBaseline(db,
sequenceColumn="SEQUENCE_IMGT",
germlineColumn="GERMLINE_IMGT_D_MASK",
testStatistic="focused",
regionDefinition=IMGT_V_NO_CDR3,
targetingModel=HS5FModel,
nproc=1)
# Group PDFs by sample
grouped1 <- groupBaseline(baseline, groupBy="SAMPLE")
plotBaselineDensity(grouped1, idColumn="SAMPLE", colorElement="group",
sigmaLimits=c(-1, 1))
# Group PDFs by both sample (between variable) and isotype (within variable)
grouped2 <- groupBaseline(baseline, groupBy=c("SAMPLE", "ISOTYPE"))
plotBaselineDensity(grouped2, idColumn="SAMPLE", groupColumn="ISOTYPE",
colorElement="group", colorValues=IG_COLORS,
sigmaLimits=c(-1, 1))
# Collapse previous isotype (within variable) grouped PDFs into sample PDFs
grouped3 <- groupBaseline(grouped2, groupBy="SAMPLE")
plotBaselineDensity(grouped3, idColumn="SAMPLE", colorElement="group",
sigmaLimits=c(-1, 1))
Run the code above in your browser using DataLab