a<-matrix(c(-0.4, 0.1), ncol=1)
b<-matrix(c(1, -2), ncol=2)
# VECM_symb(alpha=a, beta=t(b))
d<- VECM_symbolic(alpha=a, beta=t(b))
VARrep(d)
d<- VECM_symbolic(alpha=a, beta=t(b), lags=matrix(0, ncol=2, nrow=2))
VARrep(d)
LagMat <- matrix(c(0.1, 0.3, 0.1, 0.2), ncol=2, nrow=2)
incMat <- matrix(c(0.5, 0.1), ncol=1)
d3<- VECM_symbolic(alpha=a, beta=t(b), lags=LagMat, inc=incMat, include="const")
VARrep(d3)
Run the code above in your browser using DataLab