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 ) })
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.