tests/testthat/test-block_smooth_periodogram.R

test_that("block.smooth.periodogram works", {
  bsp <- block.smooth.periodogram(malleco)
  expect_equal(round(head(bsp$data$z, 3), 3), c(0.050, 0.002, 0.018))
})

Try the LSTS package in your browser

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

LSTS documentation built on July 29, 2021, 5:07 p.m.