# NOT RUN {
data("eg1.DSE.data.diff", package="dse")
model <- estVARXls(eg1.DSE.data.diff)
sumSqerror(1e-10 + coef(model), model=TSmodel(model),
data=TSdata(model), error.weights=c(1,1,10))
# }
Run the code above in your browser using DataLab