Nothing
context("PyrPenta")
test_that("PyrPenta function", {
to.test<- c("ACAAGA", "ACTAGA", "TTGCCA", "TTCGGA")
expect_equal(PyrPenta(to.test), c("CTTGTT", "ACTAGA", "GGCAAT", "TTCGGA"))
})
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.