tests/exp/test-smoothing.R

test_that("smoothing_testing", {
  # path <- system.file("extdata", "waters_raw_ex", package="PKChromaMetrics")
  # main <- read_chrom(path)
  main <- smooth_chrom(main, filter = "mean", window = 2, iter = 3)

  is_smoothed(main)

  expect_set_equal(is_smoothed(main)$smoothed, TRUE)
})

Try the PKbioanalysis package in your browser

Any scripts or data that you put into this service are public.

PKbioanalysis documentation built on Jan. 15, 2026, 1:06 a.m.