tests/testthat/test-convert_haplotype_to_haplotype_id.R

test_that("use", {
  lut <- get_haplotype_lut()
  index <- 42
  haplotype <- lut$haplotype[index]
  haplotype_id <- convert_haplotype_to_haplotype_id(haplotype)
  expect_equal(haplotype_id, lut$id[index])
})
richelbilderbeek/nmhc2ppreds documentation built on Aug. 21, 2021, 10:45 a.m.