x <- matrix(rnorm(1000*2),1000,2)
ma <- array(0,dim=c(2,2,2))
ma[,,1] <- matrix(c( -1.0, 0.0,
0.0, -1.0), 2,2,byrow=TRUE)
ma[,,2] <- matrix(c( -0.2, 0.0,
-0.1, -0.3), 2,2,byrow=TRUE)
y <- mfilter(x,ma,"convolution")
ar <- array(0,dim=c(2,2,3))
ar[,,1] <- matrix(c( -1.0, 0.0,
0.0, -1.0), 2,2,byrow=TRUE)
ar[,,2] <- matrix(c( -0.5, -0.2,
-0.2, -0.5), 2,2,byrow=TRUE)
ar[,,3] <- matrix(c( -0.3, -0.05,
-0.1, -0.30), 2,2,byrow=TRUE)
z <- mfilter(y,ar,"recursive")
markov(z)
Run the code above in your browser using DataLab