tests/testthat/test-countGenotype.R

context("countGenotype")

test_that("countGenotype works", {
  output <- countGenotype(list(c(0,0), c(0,1), c(1,2), c(1,1), c(2,2)))
  expect_equal(output, data.frame(
      ref.homozygous = 1,
      alt.heterozygous = 2,
      alt.homozygous = 2,
      total = 5
  ))
})

Try the GA4GHshiny package in your browser

Any scripts or data that you put into this service are public.

GA4GHshiny documentation built on Nov. 8, 2020, 5:56 p.m.