tests/testthat/test-baseline_lsp.R

In ChristianGoueguel/specProc: Preprocessing Tools For Laser-Induced Breakdown Spectroscopy (LIBS) Spectra

data(cereal, package = "chemometrics")
test_data <- cereal$X |> as.data.frame()
mat_data <- cereal$X

test_that("baseline_lsp function works as expected", {
  expect_error(baseline_lsp(), "Missing 'x' argument.")
  expect_error(baseline_lsp(test_data, degree = "8"), "'degree' must be a single numeric value.")
  expect_error(baseline_lsp(test_data, tol = NULL), "'tol must be a single numeric value.")
  expect_error(baseline_lsp(test_data, max.iter = NULL), "'max.iter' must be a single numeric value.")
}
)