Nothing
context("shuffle_motifs()")
test_that("motif shuffling works", {
m1 <- create_motif("ATATCGGATACGGCTGTC")
m2 <- shuffle_motifs(m1)
expect_s4_class(m2, "universalmotif")
expect_true(m1@consensus != m2@consensus)
})
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.