tests/testthat/test-spec-II.R

In abarbour/psd: Adaptive, Sine-Multitaper Power Spectral Density and Cross Spectrum Estimation

##

context("Spectrum estimation tools -- II")

test_that("'updating' spectrum is not yet implemented",{
  set.seed(1234)
  x <- rnorm(100)
  
  pd <- stats::spectrum(x, plot=FALSE)
  expect_error(pspectrum(pd, plot = FALSE))
  
  pc <- psdcore(x, plot = FALSE, verbose = FALSE)
  expect_error(pspectrum(pc, plot = FALSE))
  
  pa <- pspectrum(x, plot = FALSE, verbose = FALSE)
  expect_error(pspectrum(pa, plot = FALSE))
  
  pa_b <- pspectrum_basic(x, verbose = FALSE)
  expect_error(pspectrum(pa_b, plot = FALSE, verbose = FALSE))
  
})