# NOT RUN {
x <- rnorm(100)
ToeplitzBlock(x,lag.max=4) ## Univariate Series
#
y <- cbind(rnorm(100),rnorm(100))
ToeplitzBlock(y,lag.max=4) ## Multivariate Series
#
ToeplitzBlock(y,lag.max=4,season=4) ## Multivariate Series
# }
Run the code above in your browser using DataLab