context("DChIPRep testing test")
test_that("runTesting_works", {
data(testData)
dcr <- DChIPRepResults(testData)
dcr <- runTesting(dcr)
expect_is(resultsDChIPRep(dcr), "data.frame")
expect_is(FDRresults(dcr),"list")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.