# Multivariate Example Data
ar <- array(0,dim=c(3,3,2))
ar[,,1] <- matrix(c(0.4, 0, 0.3,
0.2, -0.1, -0.5,
0.3, 0.1, 0),3,3,byrow=TRUE)
ar[,,2] <- matrix(c(0, -0.3, 0.5,
0.7, -0.4, 1,
0, -0.5, 0.3),3,3,byrow=TRUE)
x <- matrix(rnorm(200*3),200,3)
y <- mfilter(x,ar,"recursive")
q <- matrix(c(0.16,0,0,0.09), 2, 2)
r <- matrix(0.001, 1, 1)
optdes(y,, ns=20, q, r)
Run the code above in your browser using DataLab