powered by
If one or both leading unity matrices (of eta and theta) are missing, they are (it is) generated (and taken into account).
pol.mul(eta, theta, L)
set.seed(4711) p1 <- check.one(matrix(rnorm(16), nrow=4)) p2 <- check.one(array(rnorm(32),dim=c(4, 4, 2))) p12 <- pol.mul(p1, p2, L=(2+3)) short.form(p12)
Run the code above in your browser using DataLab