# NOT RUN {
#Estimate a conditional error-correction model on pre-transformed data with a constant
#Organize data
y <- Unempl_GT[,1]
index_GT <- sample(c(2:ncol(Unempl_GT)),10)
x <- Unempl_GT[,index_GT]
y_d <- y[-1]-y[-100]
z_l <- cbind(y[-100],x[-100,])
w <- x[-1,]-x[-100,] #This w corresponds to a cecm with p=0 lagged differences
my_specs <- specs_tr(y_d,z_l,w,deterministics="constant")
#Estimate an ADL model on pre-transformed data with a constant
my_specs <- specs_tr(y_d,NULL,w,ADL=TRUE,deterministics="constant")
# }
Run the code above in your browser using DataLab