tests/testthat/test-coherence_phase.R

test_that("coherence and phase works for single entry", {
  
  a <- array(rnorm(100), dim = c(100, 1, 1))
  
  expect_warning(phase(a))
  expect_warning(coherence(a))
  
  
})

Try the psd package in your browser

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

psd documentation built on Feb. 1, 2022, 1:06 a.m.