tests/testthat/test-is.gScore.R

library(SNPgrou)
context("is.gScore")
data("hapData")

gScore <- gws(hapData,5)


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