head(HLA_Type_Table)
dim(HLA_Type_Table) # 60 13
# make a "hlaAlleleClass" object
hla.id <- "A"
hla <- hlaAllele(HLA_Type_Table$sample.id,
H1 = HLA_Type_Table[, paste(hla.id, ".1", sep="")],
H2 = HLA_Type_Table[, paste(hla.id, ".2", sep="")],
locus = hla.id, assembly="hg19")
summary(hla)
hla2 <- hlaAlleleDigit(hla, "2-digit")
summary(hla2)
Run the code above in your browser using DataLab