tests/testthat/tests_power.R

In reumandc/wsyn: Wavelet Approaches to Studies of Synchrony in Ecology and Other Fields

context("power")

test_that("test it",{
  times<-1:10
  timescales<-1:10
  values<-matrix(rep(complex(modulus=1,argument=2*pi*c(0:9)/10),times=10),10,10)
  ttsobj<-tts(times,timescales,values)
  res<-power(ttsobj)
  expect_equal(res$timescales,timescales)
  expect_equal(res$power,rep(1,length(timescales)))
})