# Subset example data
data(ExampleDb, package="alakazam")
db <- subset(ExampleDb, ISOTYPE == "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 the sample identifier
grouped <- groupBaseline(baseline, groupBy="SAMPLE")
# Perform test on sample PDFs
testBaseline(grouped, groupBy="SAMPLE")
Run the code above in your browser using DataLab