inst/book-ex/Rcode-8-7.R

data(denmark)
sjd <- denmark[, c("LRM", "LRY", "IBO", "IDE")]
sjd.vecm <- summary(ca.jo(sjd, ecdet = "const",
                          type = "eigen",
                          K = 2,
                          spec = "longrun",
                          season = 4))
lue.vecm <- summary(cajolst(sjd, season=4))
frbl/vars documentation built on Dec. 11, 2019, 1:16 a.m.