# NOT RUN {
# create the VAR(1) parameters
A <- createA(10, topology="clique", nonzeroA=0.1, nClique=4)
Se <- createS(1000, 10, "star")
# sample data from the VAR(1) model with above parameters
Y <- dataVAR1(4, 8, A, Se)
# }
Run the code above in your browser using DataLab