forecastCovWRTtrue(models, true.model,
pred.replications=1, simulation.args=NULL, quiet=FALSE, rng=NULL,
compiled=.DSEflags()$COMPILED,
horizons=1:12, discard.before=10, trend=NULL, zero=NULL) is.forecastCovWRTdata(obj)
forecastCov
of the result. Other elements contain information in the arguments.forecastCovEstimatorsWRTdata
simulate
EstEval
distribution
MonteCarloSimulations
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