我在 R 中安装了 VECM 模型,并转换为 VAR 表示。我想使用这个模型根据解释变量的不同场景来预测响应变量的未来值。
这是模型的代码:
library(urca)
library(vars)
input <-read.csv("data.csv")
ts <- ts(input[16:52,],c(2000,1),frequency=4)
dat1 <- cbind(ts[,"dx"], ts[,"u"], ts[,"cci"],ts[,"bci"],ts[,"cpi"],ts[,"gdp"])
args('ca.jo')
vecm <- ca.jo(dat1, type = 'trace', K = 2, season = NULL,spec="longrun",dumvar=NULL)
vecm.var <- vec2var(vecm,r=2)
现在我想做的是通过改变其他人来预测未来的“dx”。我不确定在下一个时期是否可以使用“predict dx if u=30,cpi=15,bci=50,gdp=...”。所以我想到的是:在下一个时期将“u”增加 15%(这显然也会影响所有其他变量,包括“dx”)并预测未来的影响。
另外,我不确定“vec2var”步骤是否必要,所以如果您认为它是多余的,请忽略它。
谢谢卡尔
_