#PARAMETERS
#Sigma
corrm = matrix(0, ncol = 3, nrow = 3)
corrm[2,1] = 0.25
corrm[3,1] = 0.4
corrm[3,2] = -0.25
corrs = (corrm + t(corrm)) + diag(3)
sds = diag(c(1.3, 1.2, 1))
sigma = (sds %*% corrs %*% t(sds))
#Gamma
gammax = list()
gammax[[1]] = matrix(c(0.6, 0, 0.2, 0.1, -0.3, 0, 0, -0.3, 0.2), nrow = 3, ncol = 3, byrow = TRUE)
gammax[[2]] = matrix(c(0.2, 0, 0.1, 0.05, -0.15, 0, 0, 0, 0.1), nrow = 3, ncol = 3, byrow = TRUE)
#DATA GENERATION
data_sim = sim_vecm_ardl(nobs = 200,
case = 3,
sigma.in = sigma,
gamma.in = gammax,
axx.in = matrix(c(0.3, 0.5, 0.4, 0.3), nrow = 2, ncol = 2),
ayx.uc.in = c(0.5,0.6),
ayy.in = 0.7,
mu.in = rep(0, 3),
eta.in = rep(0, 3),
azero.in = rep(0.4, 3),
aone.in = rep(0, 3),
burn.in = 50,
seed.in = 10)
Run the code above in your browser using DataLab