library(SNPgrou)
context("is.gScore")
data("hapData")
gScore <- gws(hapData,5)
test_that("Funtion return the correct result", {
expect_true(is.gScore(gScore))})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.