tests/testthat/test-convert_haplotype_id_to_haplotype.R

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