data(macro)
out=fmvar(macro,p=1,q=6,v=15,type="trend",ker_fun="parzen",aband=0,filter=0)
out$beta
out$stderr
out$tstat
out$vcov
tail(out$data)
tail(out$resid)
ID1=grep(rownames(out$beta),pattern="_dL")
ID2=grep(rownames(out$beta),pattern="_L")
ID3=rownames(out$beta)[-c(ID1,ID2)]
out$beta[ID1,]; #innovation terms
out$beta[ID2,]; #VAR(1)
out$beta[ID3,]; #deterministic parts
Run the code above in your browser using DataLab