tests/testthat/test-utlis-genetic-load.R

test_that("count_alt_alleles", {
  expect_equal(1, count_alt_alleles("1|0"))
  expect_equal(0, count_alt_alleles("0|0"))
  expect_equal(2, count_alt_alleles("1|1"))
})
santiago1234/phdpopgene documentation built on Dec. 31, 2020, 5:06 a.m.