# Load example data
file <- system.file("extdata", "ExampleDb.gz", package="alakazam")
df <- readChangeoDb(file)
clone <- subset(df, CLONE == 164)
# Get all regions
extractVRegion(clone$SEQUENCE_IMGT)
# Get single region
extractVRegion(clone$SEQUENCE_IMGT, "FWR1")
# Get all CDRs
extractVRegion(clone$SEQUENCE_IMGT, c("CDR1", "CDR2"))
# Get all FWRs
extractVRegion(clone$SEQUENCE_IMGT, c("FWR1", "FWR2", "FWR3"))Run the code above in your browser using DataLab