AMUSEasymp: Second-order Separation Sub-White-Noise Asymptotic Testing...

Description Usage Arguments Details Value Author(s) References See Also Examples

View source: R/AMUSEasymp.R

Description

The function uses AMUSE (Algorithm for Multiple Unknown Signals Extraction) to test whether the last p-k latent series are pure white noise, assuming a p-variate second-order stationary blind source separation (BSS) model. The test is asymptotic.

Usage

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
AMUSEasymp(X, ...)

## Default S3 method:
AMUSEasymp(X, k, tau = 1, ...)
## S3 method for class 'ts'
AMUSEasymp(X, ...)
## S3 method for class 'xts'
AMUSEasymp(X, ...)
## S3 method for class 'zoo'
AMUSEasymp(X, ...)

Arguments

X

A numeric matrix or a multivariate time series object of class ts, xts or zoo. Missing values are not allowed.

k

The number of latent series that are not white noise. Can be between 0 and p-1.

tau

The lag for the AMUSE autocovariance matrix.

...

Further arguments to be passed to or from methods.

Details

AMUSE standardizes X with n samples and computes the eigenedcomposition of the autocovariance matrix of the standardized data for a chosen lag tau, yielding a transformation W giving the latent variables as S = XW. Assume, without loss of generality, that the latent components are ordered in decreasing order with respect to the squares of the corresponding eigenvalues of the autocovariance matrix. Under the null hypothesis the final p - k eigenvalues equal zero, λ_(p-k) = … = λ_p = 0, and their mean square m can be used as a test statistic in inference on the true number of latent white noise series.

This function conducts the hypothesis test using the asymptotic null distribution of m, a chi-squared distribution with (p - k)(p - k + 1)/2 degrees of freedom.

Value

A list of class ictest, inheriting from class htest, containing:

statistic

The value of the test statistic.

p.value

The p-value of the test.

parameter

The degrees of freedom of the asymptotic null distribution.

method

Character string indicating which test was performed.

data.name

Character string giving the name of the data.

alternative

Character string specifying the alternative hypothesis.

k

The number of latent series that are not white noise used in the testing problem.

W

The transformation matrix to the latent series.

S

Multivariate time series with the centered source components.

D

The underlying eigenvalues of the autocovariance matrix.

MU

The location of the data which was subtracted before calculating AMUSE.

tau

The used lag.

...

Further arguments to be passed to or from methods.

Author(s)

Klaus Nordhausen, Joni Virta

References

Virta, J. and Nordhausen, K. (2021), Determining the Signal Dimension in Second Order Source Separation. Statistica Sinica, 31, 135–156.

See Also

AMUSE, SOBI, SOBIasymp

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
  n <- 1000

  A <- matrix(rnorm(16), 4, 4)
  s1 <- arima.sim(list(ar = c(0.3, 0.6)), n)
  s2 <- arima.sim(list(ma = c(-0.3, 0.3)), n)
  s3 <- rnorm(n)
  s4 <- rnorm(n)

  S <- cbind(s1, s2, s3, s4)
  X <- S %*% t(A)

  asymp_res_1 <- AMUSEasymp(X, k = 1)
  asymp_res_1

  asymp_res_2 <- AMUSEasymp(X, k = 2)
  asymp_res_2

  # Plots of the estimated sources, the last two are white noise
  plot(asymp_res_2)

tsBSS documentation built on July 10, 2021, 9:07 a.m.