tests/testthat/test_maf.R

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


test_that("maf works on vcfR",{
  data("vcfR_example")
  my.maf <- maf(vcf)

  expect_equal( ncol(my.maf), 4 )
})
knausb/vcfR documentation built on Jan. 14, 2024, 1:56 a.m.