tests/testthat/test-savitzkyGolay.R

In prospectr: Miscellaneous Functions for Processing and Sample Selection of Spectroscopic Data

context("test-savitzkyGolay")

test_that("savitzkyGolay works", {
  nirdata <- data("NIRsoil")

  X_savitzkyGolay <- savitzkyGolay(NIRsoil$spc, m = 1, p = 1, w = 3)

  expect_is(X_savitzkyGolay, "matrix")
  expect_true(round(max(abs(X_savitzkyGolay[1, ])), 5) == 0.00528)
})