# NOT RUN {
# set dimensions (p=covariates, n=individuals, T=time points)
p <- 3; n <- 4; T <- 10
# set model parameters
SigmaE <- diag(p)/4
A <- createA(p, "chain")
# generate data
Y <- dataVAR1(n, T, A, SigmaE)
## Visualize regularization paths
lambdaAgrid <- seq(0.01, 1, length.out=20)
lambdaPgrid <- seq(0.01, 1, length.out=20)
ridgePathVAR1(Y, lambdaAgrid, lambdaPgrid, pathType="A")
# }
Run the code above in your browser using DataLab