Nothing
context("sample meta info")
test_that("population input is correct", {
sample.annot <- system.file("extdata", "sampleAnnotation.txt", package="SeqSQC")
meta <- read.table(sample.annot, header=T)
expect_true(all(meta[,2] %in% c("AFR", "EUR", "EAS", "SAS", "ASN")))
})
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.