test_that("plotRSD works for Binalysis class", {
pl <- plotRSD(bd)
expect_type(pl,'list')
})
test_that("plotRSD works for MetaboProfile class", {
pl <- plotRSD(lcd)
expect_type(pl,'list')
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.