pdSpecEst2D: Intrinsic wavelet HPD time-varying spectral estimation

Description Usage Arguments Details Value References See Also Examples

View source: R/estimation.R

Description

pdSpecEst2D calculates a (d,d)-dimensional HPD wavelet-denoised time-varying spectral matrix estimator by applying the following steps to an initial noisy HPD time-varying spectral estimate (obtained with e.g., pdPgram2D):

  1. a forward intrinsic AI wavelet transform, with WavTransf2D,

  2. (tree-structured) thresholding of the wavelet coefficients, with pdCART,

  3. an inverse intrinsic AI wavelet transform, with InvWavTransf2D.

The complete estimation procedure is described in more detail in Chapter 5 of \insertCiteC18pdSpecEst.

Usage

1
2
pdSpecEst2D(P, order = c(3, 3), metric = "Riemannian", alpha = 1,
  return_val = "f", ...)

Arguments

P

a (d,d,n1,n2)-dimensional array of HPD matrices corresponding to a rectangular surface of (d,d)-dimensional HPD matrices of size n_1 \times n_2, with n_1 = 2^{J_1} and n_2 = 2^{J_2} for some J_1, J_2 > 0.

order

a 2-dimensional numeric vector (1,1) ≤ order ≤ (9,9) corresponding to the marginal orders of the intrinsic 2D AI refinement scheme, defaults to order = c(3, 3).

metric

the metric that the space of HPD matrices is equipped with. The default choice is "Riemannian", but this can also be one of: "logEuclidean", "Cholesky", "rootEuclidean" or "Euclidean". See also the Details section below.

alpha

an optional tuning parameter in the wavelet thresholding procedure. The penalty (or sparsity) parameter in the tree-structured wavelet thresholding procedure in pdCART is set to alpha times the estimated universal threshold, defaults to alpha = 1.

return_val

an optional argument that specifies whether the denoised spectral estimator is returned or not. See the Details section below.

...

additional arguments for internal use.

Details

The input array P corresponds to an initial noisy HPD time-varying spectral estimate of the (d, d)-dimensional spectral matrix at a time-frequency grid of size m_1 \times m_2, with m_1, m_2 dyadic numbers. This can be e.g., a multitaper HPD time-varying periodogram given as output by the function pdPgram2D.
P is transformed to the wavelet domain by the function WavTransf2D, which applies an intrinsic 2D AI wavelet transform based on a metric specified by the user. The noise is removed by tree-structured thresholding of the wavelet coefficients based on the trace of the whitened coefficients with pdCART by minimization of a complexity penalized residual sum of squares (CPRESS) criterion via the fast tree-pruning algorithm in \insertCiteD97pdSpecEst. The penalty (i.e., sparsity) parameter in the optimization procedure is set equal to alpha times the universal threshold, where the noise variance of the traces of the whitened wavelet coefficients are determined from the finest wavelet scale. See Chapter 5 of \insertCiteC18pdSpecEst for further details.
The function computes the forward and inverse intrinsic 2D AI wavelet transform in the space of HPD matrices equipped with one of the following metrics: (i) the affine-invariant Riemannian metric (default) as detailed in e.g., \insertCiteB09pdSpecEst[Chapter 6] or \insertCitePFA05pdSpecEst; (ii) the log-Euclidean metric, the Euclidean inner product between matrix logarithms; (iii) the Cholesky metric, the Euclidean inner product between Cholesky decompositions; (iv) the Euclidean metric; or (v) the root-Euclidean metric. The default choice of metric (affine-invariant Riemannian) satisfies several useful properties not shared by the other metrics, see \insertCiteCvS17pdSpecEst or \insertCiteC18pdSpecEst for more details. Note that this comes at the cost of increased computation time in comparison to one of the other metrics.
If return_val = 'f' the thresholded wavelet coefficients are transformed back to the time-frequency domain by the inverse intrinsic 2D AI wavelet transform via InvWavTransf2D, returning the wavelet-denoised HPD time-varying spectral estimate.

Value

The function returns a list with the following five components:

f

a (d,d,m1,m2)-dimensional array of HPD matrices, corresponding to the HPD wavelet-denoised estimate on the same resolution grid of size m_1 \times m_2 as specified by the input array P. If return_val != 'f', the inverse wavelet transform of the thresholded wavelet coefficients is not computed and f is set equal to NULL.

D

the 2D pyramid of threshold wavelet coefficients. This is a list of arrays, where each array contains the rectangular grid (d,d)-dimensional thresholded wavelet coefficients from the coarsest wavelet scale j = 0 up to the finest wavelet scale j = jmax.

M0

a numeric array containing the midpoint(s) at the coarsest scale j = 0 in the 2D midpoint pyramid.

tree.weights

a list of logical values specifying which coefficients to keep, with each list component corresponding to an individual wavelet scale starting from the coarsest wavelet scale j = 0.

D.raw

the 2D pyramid of non-thresholded wavelet coefficients in the same format as the component $D.

References

\insertAllCited

See Also

pdPgram2D, WavTransf2D, InvWavTransf2D, pdCART

Examples

1
2
3
4
5
## Not run: 
P <- rExamples2D(c(2^6, 2^6), 2, example = "tvar")$P
f <- pdSpecEst2D(P)

## End(Not run)

JorisChau/pdSpecEst documentation built on Jan. 13, 2020, 6:08 p.m.