context("Copy number")
library(yamat)
library(minfiData)
skip_flag <- TRUE
test_that("copy_number()", {
testthat::skip_if(skip_flag, "Skip")
df <- copy_number(MsetEx.sub)
testthat::expect_equal(dim(df), c(600, 6))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.