Implementation of “Dynamic principal components of periodically correlated functional time series”.
Two examples in demo directory:
library("devtools")
install_github("kidzik/pcdpca")
library("pcdpca")
demo("simulation")
demo("pcdpca.pm10")
Let X be a multivariate time series, a matrix with n observations and d covariates, periodic with period = 2. Then
FF = pcdpca(X, period=2) # finds the optimal filter
Yhat = pcdpca.scores(X, FF) # applies the filter
Yhat[,-1] = 0 # forces the use of only one component
Xhat = pcdpca.inverse(Yhat, FF) # deconvolution
cat(sum((X-Xhat)^2) / sum(X^2)) # variance explained