context("Data consistence")
data(dunkley2006)
test_that("subsetting", {
mrk <- markerMSnSet(dunkley2006)
nm <- sum(fData(dunkley2006)$markers == "unknown")
expect_equal(nrow(dunkley2006) - nm, nrow(mrk))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.