tests/testthat/fourier.R
In kidzik/freqdom: Frequency Domain Based Analysis: Dynamic PCA
library(freqdom)
OP = array(0,c(1,1,3))
OP[,,1] = 1
OP[,,3] = 1
A = timedom(OP,-1:1)
FT = fourier.transform(A) #should give cosine
Ai = fourier.inverse(FT,lags=-1:1)
if (abs(sum((Ai$operators[,,1:3] - A$operators[,,1:3])^2)) > 0.001)
stop("ERROR")
kidzik/freqdom documentation built on April 20, 2022, 9:47 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
library(freqdom)
OP = array(0,c(1,1,3))
OP[,,1] = 1
OP[,,3] = 1
A = timedom(OP,-1:1)
FT = fourier.transform(A) #should give cosine
Ai = fourier.inverse(FT,lags=-1:1)
if (abs(sum((Ai$operators[,,1:3] - A$operators[,,1:3])^2)) > 0.001)
stop("ERROR")
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.