if(is.R()) data("egJofF.1dec93.data", package="dse1")
model <- est.VARX.ls(window(egJofF.1dec93.data, end=c(1985,12)))
pr <- forecast(model, conditioning.inputs=input.data(egJofF.1dec93.data))
z <- forecasts(pr)
Run the code above in your browser using DataLab