inst/book-ex/Rcode-5-5.R

library(urca)
data(nporg)
ir <- na.omit(nporg[, "bnd"])
wg <- log(na.omit(nporg[, "wg.n"]))
ir.kpss <- ur.kpss(ir, type = "mu", use.lag=8)
wg.kpss <- ur.kpss(wg, type = "tau", use.lag=8)
cheaton/vars2 documentation built on Oct. 1, 2018, 12:22 a.m.