tests/testthat/test_addID.R

library(vcfR)
#library(testthat)
context("addID")



test_that("addID works",{
  data("vcfR_example")
  x <- addID(vcf)
  expect_equal( sum( is.na(x@fix[,'ID']) ), 0 )
})

Try the vcfR package in your browser

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

vcfR documentation built on May 29, 2024, 10:57 a.m.