tests/testthat/test-is.SNP.R

library(SNPgrou)
context("is.SNP")
data("geneSNP")

s3 <- prep(geneSNP$snp10003)


    test_that("Funtion return the correct result", {
      expect_true(is.SNP(s3))})
Kevinpen/SNPgrou documentation built on Dec. 8, 2019, 8:32 a.m.