if(is.R()) data("eg1.DSE.data.diff", package="dse1")
model <- est.VARX.ls(TSdata(output=output.data(eg1.DSE.data.diff)))
z <- eval.estimation(model,
estimation="est.VARX.ls", estimation.args=list(max.lag=2))
#distribution(z) Rbug v90.1
Run the code above in your browser using DataLab