# Subset example data to one isotype and sample as a demo
db <- subset(InfluenzaDb, CPRIMER == "IGHA" & BARCODE == "RL014")
# Create 4x1024 model using only silent mutations and ignore multiple mutations
sub_model <- createSubstitutionMatrix(db, model="S", multipleMutation="ignore")
mut_model <- createMutabilityMatrix(db, sub_model, model="S", multipleMutation="ignore",
minNumSeqMutations=10)
tar_model <- createTargetingMatrix(sub_model, mut_model)
# Create 5x3125 model including Ns
sub_model <- extendSubstitutionMatrix(sub_model)
mut_model <- extendMutabilityMatrix(mut_model)
tar_model <- createTargetingMatrix(sub_model, mut_model)
Run the code above in your browser using DataLab