tests/testthat/test_downsample_specta.R

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)
})
steverozen/mSigHdp documentation built on Feb. 6, 2023, 1:36 a.m.