Learn R Programming

JADE (version 2.0-4)

SOBI: SOBI Method for Blind Source Separation

Description

The SOBI method for the second order blind source separation problem. The function estimates the unmixing matrix in a second order stationary source separation model by jointly diagonalizing the covariance matrix and several autocovariance matrices at different lags.

Usage

SOBI(X, ...)

# S3 method for default SOBI(X, k=12, method="frjd", eps = 1e-06, maxiter = 100, ...) # S3 method for ts SOBI(X, ...)

Value

A list with class 'bss' containing the following components:

W

estimated unmixing matrix.

k

lags used.

method

method used for the joint diagonalization.

S

estimated sources as time series objected standardized to have mean 0 and unit variances.

Arguments

X

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

k

if a single integer, then the lags 1:k are used, if an integer vector, then these are used as the lags.

method

method to use for the joint diagonalization, options are djd, rjd and frjd

.

eps

convergence tolerance.

maxiter

maximum number of iterations.

...

further arguments to be passed to or from methods.

Author

Klaus Nordhausen

Details

The order of the estimated components is fixed so that the sums of squared autocovariances are in the decreasing order.

References

Belouchrani, A., Abed-Meriam, K., Cardoso, J.F. and Moulines, R. (1997), A blind source separation technique using second-order statistics, IEEE Transactions on Signal Processing, 434--444.

Miettinen, J., Nordhausen, K., Oja, H. and Taskinen, S. (2014), Deflation-based Separation of Uncorrelated Stationary Time Series, Journal of Multivariate Analysis, 123, 214--227.

Miettinen, J., Illner, K., Nordhausen, K., Oja, H., Taskinen, S. and Theis, F.J. (2016), Separation of Uncorrelated Stationary Time Series Using Autocovariance Matrices, Journal of Time Series Analysis, 37, 337--354.

Miettinen, J., Nordhausen, K. and Taskinen, S. (2017), Blind Source Separation Based on Joint Diagonalization in R: The Packages JADE and BSSasymp, Journal of Statistical Software, 76, 1--31, <doi:10.18637/jss.v076.i02>.

See Also

Examples

Run this code
# creating some toy data
A<- matrix(rnorm(9),3,3)
s1 <- arima.sim(list(ar=c(0.3,0.6)),1000)
s2 <- arima.sim(list(ma=c(-0.3,0.3)),1000)
s3 <- arima.sim(list(ar=c(-0.8,0.1)),1000)

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

res1<-SOBI(X)
res1
coef(res1)
plot(res1) # compare to plot.ts(S)
MD(coef(res1),A)

# input of a time series
X2<- ts(X, start=c(1961, 1), frequency=12)
plot(X2)
res2<-SOBI(X2, k=c(5,10,1,4,2,9,10))
plot(res2)

Run the code above in your browser using DataLab