# Example recipient and donor GL strings
file <- HLA_typing_1[, -1]
GL_string <- HLA_columns_to_GLstring(file, HLA_typing_columns = everything())
GL_string_recip <- GL_string[1]
GL_string_donor <- GL_string[2]
# Calculate mismatch numbers
HLA_match_summary_HCT(GL_string_recip, GL_string_donor,
direction = "bidirectional", match_grade = "Xof8"
)
Run the code above in your browser using DataLab