Nothing
context("Sample subsetting")
test_that("filt_samp returns correct raw_data object", {
if(require(brassicaData)){
data("raw_napus", package = "brassicaData")
raw_napus <- filt_samp(raw_napus, check_raw(raw = raw_napus, plot = FALSE, thresh = 28000))
expect_equal(class(raw_napus), "raw_data")
expect_true(is.list(raw_napus))
expect_equal(length(raw_napus$samples), 280)
}
})
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.