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)
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.