add wh tests

wincowgerDEV · Jan 26, 2024 · fd3b06a · fd3b06a
1 parent 3553ebc
commit fd3b06a
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/tests/testthat/test-smooth_intens.R b/tests/testthat/test-smooth_intens.R
@@ -25,6 +25,15 @@ test_that("smooth_intens() works as expected", {
       smooth_intens(raman_hdpe, polynomial = 1)$spectra$intensity) |>
       round(4) |>
     expect_equal(0.8043, ignore_attr = F)
+
+  smt2 <- smooth_intens(raman_hdpe, lambda = 1600, d = 2, lag = 2, type = "wh") |> expect_silent()
+
+  cor(smt2$spectra$intensity,smooth_intens(raman_hdpe, lambda = 100, d = 2, lag = 2, type = "wh")$spectra$intensity) |>
+      round(4) |>
+      expect_equal(0.8572, ignore_attr = F)
+
+  expect_true(check_OpenSpecy(smt2))
+  expect_true(check_OpenSpecy(smt))
   expect_s3_class(smt, "OpenSpecy")
   expect_equal(nrow(smt$spectra), nrow(raman_hdpe$spectra))
   expect_equal(smt$wavenumber, raman_hdpe$wavenumber)