Nothing
context("test-length_filter.R")
skip_on_cran()
require("Biostrings")
require("ShortRead")
#create ShortReadQ object width widths between 1 and 100
set.seed(10)
input <- random_length(100, widths = seq_len(100))
test_that("length filter works", {
## apply the filter, removing sequences with 10>length> 80
filtered <- length_filter(input, rm.min = 10, rm.max = 80)
expect_true(all(width(filtered) >= 10))
expect_true(all(width(filtered) <= 80))
})
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.