tests/testthat/cov.structure.R

library("freqdom")

n = 10000
X = matrix(rnorm(2*n),n,2)
Y = X[2:n,]
X = X[1:(n-1),]

covs = cov.structure(X,Y,lags = 1)
if (norm(covs$operators[,,1] - diag(2)) > 0.1)
  stop("Lag 1 should be diag!")
t(covs)

Try the freqdom package in your browser

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

freqdom documentation built on Oct. 4, 2022, 5:05 p.m.