test_that("downsample_spectra", {
reg <- new.env()
load("tdata/downsample_spectra_and_result.Rdata", envir = reg)
res <- downsample_spectra(reg$test.ex, downsample_threshold = 3000)
expect_equal(res, reg$res)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.