reg<-lm(LNGT~LNQT)#回归方程
summary(reg)
dwtest(reg)
plot(reg)
#残差平稳性检验
error<-residuals(reg)
urt.resid<-ur.df(error,type='none',selectlags='AIC')
summary(urt.resid)

这是我的协整检验的代码，接下来我要做误差修正模型
但是我压根不知道误差修正模型的代码
有没有人告诉一下误差修正模型ECM到底代码怎么写