## Univariate Series
x <- rnorm(100)
ToeplitzBlock(x,lag.max=4)
## Univariate Series with Parzen Kernel
x<-rnorm(100)
ToeplitzBlock(x,lag.max=4,Kernel=TRUE)
## Multivariate Series
x <- cbind(rnorm(100),rnorm(100))
ToeplitzBlock(x,lag.max=4)
Run the code above in your browser using DataLab