# NOT RUN {
A <- matrix(rnorm(9),3,3)
s1 <- arima.sim(list(ar=0.6),1000)
s2 <- arima.sim(list(ma=c(0.2,0.3,-0.3)),1000)
s3 <- arima.sim(list(ar=-0.2,ma=c(0.5,-0.1,0.4)),1000)
S <- cbind(s1,s2,s3)
X <- S %*% t(A)
aSOBI(X, a=3)
# }
Run the code above in your browser using DataLab