powered by
VAR.sim(B, n=200, lag=1, include = c("const", "trend","none", "both"), starting=NULL, innov=rmnorm(n, mean=0, varcov=varcov), varcov=diag(1,nrow(B)), show.parMat=FALSE)
lineVar
TVAR.sim
##simulate VAR as in Enders 2004, p 268 B1<-matrix(c(0.7, 0.2, 0.2, 0.7), 2) var1<-VAR.sim(B=B1,n=100,include="none") ts.plot(var1, type="l", col=c(1,2))
Run the code above in your browser using DataLab