# NOT RUN {
# set dimensions (p=covariates, n=individuals, T=time points)
p <- 3; n <- 12; T <- 10
# set model parameters
SigmaE <- diag(p)/4
A1 <- createA(p, "clique", nCliques=1)
A2 <- createA(p, "hub", nHubs=1)
# generate time-varying covariates in accordance with VAR(2) process
Y <- dataVAR2(n, T, A1, A2, SigmaE)
# fit VAR(2) model
VAR2hat <- ridgeVAR2(Y, 1, 1, 1)
# impulse response analysis
impulseResponseVAR2(VAR2hat$A1, VAR2hat$A2, 10)
# }
Run the code above in your browser using DataLab