Nothing
context("test clustering.mode")
test_that("test clustering.mode",{
BED.file <- system.file("extdata","ipcaps_example.bed",package="IPCAPS")
LABEL.file <- system.file("extdata","ipcaps_example_individuals.txt.gz",package="IPCAPS")
res <- ipcaps(bed=BED.file,label.file=LABEL.file,lab.col=2,out=tempdir())
expect_type(res, "list")
expect_length(res, 2)
unlink(res$output.dir, recursive = TRUE)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.