library(SNPgrou)
context("gws")
data("hapData")
test_that("The result of the function is a gScore oblect", {
expect_is(gws(hapData,2),"gScore")
expect_is(gws(hapData,2),"data.frame")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.