# \donttest{
# Subset example data as a demo
data(ExampleDb, package="alakazam")
db <- subset(ExampleDb, c_call == "IGHG" & sample_id == "+7d")
set.seed(112)
db <- dplyr::slice_sample(db, n=100)
# Make Baseline object
baseline <- calcBaseline(db,
sequenceColumn="sequence_alignment",
germlineColumn="germline_alignment_d_mask",
testStatistic="focused",
regionDefinition=IMGT_V,
targetingModel=HH_S5F,
nproc=1)
# Edit the field "description"
baseline <- editBaseline(baseline, field="description",
value="+7d IGHG")
# }
Run the code above in your browser using DataLab