# NOT RUN {
data("eg1.DSE.data.diff", package="dse")
true.model <- estVARXls(eg1.DSE.data.diff) # A starting model TSestModel
data <- simulate(true.model)
models <- list(TSmodel(estVARXar(data)),TSmodel(estVARXls(data)))
z <- forecastCovWRTtrue( models, true.model)
# }
Run the code above in your browser using DataLab