HLA_type <- data.frame(
"HLA-A*" = c("01:01", "02:01"),
"HLA-B*" = c("07:02", "08:01"),
"HLA-C*" = c("03:04", "04:01"),
stringsAsFactors = FALSE
)
HLA_column_repair(HLA_type, format = "tidyverse")
Run the code above in your browser using DataLab