###### here's an itty-bitty example
tau <- 7
n <- 5
Z <- matrix(1, tau, n)
Hst.ls <- list()
for(i in 1:tau) { Hst.ls[[i]] <- matrix(rnorm(n*4), nrow=n) }
load.Hst.ls.Z(Z, Hst.ls.Z=Hst.ls, 1, 0)
########## insert into col 3
load.Hst.ls.Z(Z, Hst.ls.Z=Hst.ls, 3, 0)
############ lag Z examples
Z <- matrix(1:tau, tau, n)
######### lag -1 Z
load.Hst.ls.Z(Z, Hst.ls.Z=Hst.ls, 1, -1)
######### lag 0 Z -- default
load.Hst.ls.Z(Z, Hst.ls.Z=Hst.ls, 1, 0)
######### lag +1 Z
load.Hst.ls.Z(Z, Hst.ls.Z=Hst.ls, 1, +1)
Run the code above in your browser using DataLab