# loading TIgGER AIRR-seq b cell data
data <- tigger::AIRRDb
# preferably obtain the latest ASC cluster table
# asc_archive <- recentAlleleClusters(doi="10.5281/zenodo.7429773", get_file = TRUE)
# allele_cluster_table <- extractASCTable(archive_file = asc_archive)
# example allele similarity cluster table
data(allele_cluster_table)
data(HVGERM)
# reforming the germline set
asc_germline <- germlineASC(allele_cluster_table, germline = HVGERM)
# assigning the ASC alleles
asc_data <- assignAlleleClusters(data, allele_cluster_table)
# inferring the genotype
asc_genotype <- inferGenotypeAllele_asc(
data = asc_data,
alleleClusterTable = allele_cluster_table,
germline_db = asc_germline, find_unmutated=TRUE)
Run the code above in your browser using DataLab