# 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)
hlaUniqueAllele(hla)
hlaUniqueAllele(c("01", "01:03", "01:01", "03:05", "03:01G",
"03:05P", "03:104:01", "104:01"))
Run the code above in your browser using DataLab