# NOT RUN {
data("eg1.DSE.data.diff", package="dse")
z <- stripMine(eg1.DSE.data.diff, essential.data=c(1,2),
estimation.methods=list(estVARXls=list(max.lag=3)))
z <- selectForecastCov(z)
tfplot(selectForecastCov(z, select.cov.bound=20000))
tfplot(selectForecastCov(z, select.cov.best=1))
# }
Run the code above in your browser using DataLab