Methods for Function show in Package `urca'

Displays the outcome of the unit root/cointegration tests.

Methods

object = "ca.jo"

Displays the test statistic of the Johansen procedure.

object = "cajo.test"

Displays the test statistic of a restricted VAR with respect to \(\bold{\alpha}\) and/or \(\bold{\beta}\).

object = "ca.po"

Displays the test statistic of the Phillips and Ouliaris cointegration test.

object = "ur.df"

Displays the test statistic of the Augmented, Dickey and Fuller unit root test.

object = "ur.ers"

Displays the test statistic of the Elliott, Rothenberg and Stock unit root test.

object = "ur.kpss"

Displays the test statistic of the Kwiatkowski et al. unit root test.

object = "ur.pp"

Displays the test statistic of the Phillips and Perron unit root test.

object = "ur.df"

Displays the test statistic of the augmented Dickey-Fuller unit root test.

object = "ur.sp"

Displays the test statistic of the Schmidt and Phillips unit root test.

object = "ur.za"

Displays the test statistic of the Zivot and Andrews unit root test.

object = "sumurca"

Displays the summary output.

See also

ca.jo-class, cajo.test-class, ca.po-class, ur.ers-class, ur.kpss-class, ur.pp-class, ur.sp-class, ur.df-class and ur.za-class.

Author

Bernhard Pfaff

Examples

data(nporg)
gnp <- na.omit(nporg[, "gnp.r"])
gnp.l <- log(gnp)
#
ers.gnp <- ur.ers(gnp, type="DF-GLS", model="trend", lag.max=4)
show(ers.gnp)
#> 
#> ############################################################### 
#> # Elliot, Rothenberg and Stock Unit Root / Cointegration Test # 
#> ############################################################### 
#> 
#> The value of the test statistic is: -0.9499 
#> 
#
kpss.gnp <- ur.kpss(gnp.l, type="tau", lags="short")
show(kpss.gnp)
#> 
#> ####################################### 
#> # KPSS Unit Root / Cointegration Test # 
#> ####################################### 
#> 
#> The value of the test statistic is: 0.1976 
#> 
#
pp.gnp <- ur.pp(gnp, type="Z-tau", model="trend", lags="short")
show(pp.gnp)
#> 
#> ################################################## 
#> # Phillips-Perron Unit Root / Cointegration Test # 
#> ################################################## 
#> 
#> The value of the test statistic is: -0.7734 
#> 
#
df.gnp <- ur.df(gnp, type="trend", lags=4)
show(df.gnp)
#> 
#> ############################################################### 
#> # Augmented Dickey-Fuller Test Unit Root / Cointegration Test # 
#> ############################################################### 
#> 
#> The value of the test statistic is: -0.6614 4.2327 3.2833 
#> 
#
sp.gnp <- ur.sp(gnp, type="tau", pol.deg=1, signif=0.01)
show(sp.gnp)
#> 
#> ################################################### 
#> # Schmidt-Phillips Unit Root / Cointegration Test # 
#> ################################################### 
#> 
#> The value of the test statistic is: -1.3732 
#> 
#
za.gnp <- ur.za(gnp, model="both", lag=2)
show(za.gnp)
#> 
#> ################################################ 
#> # Zivot-Andrews Unit Root / Cointegration Test # 
#> ################################################ 
#> 
#> The value of the test statistic is: -3.8431 
#> 
#
data(denmark)
sjd <- denmark[, c("LRM", "LRY", "IBO", "IDE")]
sjd.vecm <- ca.jo(sjd, ecdet = "const", type="eigen", K=2, season=4)
show(sjd.vecm)
#> 
#> ##################################################### 
#> # Johansen-Procedure Unit Root / Cointegration Test # 
#> ##################################################### 
#> 
#> The value of the test statistic is: 2.3522 6.3427 10.362 30.0875 
#> 
#
HD0 <- matrix(c(-1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1), c(5,4))
show(blrtest(sjd.vecm, H=HD0, r=1))
#> 
#> ##################################################### 
#> # Johansen-Procedure Unit Root / Cointegration Test # 
#> ##################################################### 
#> 
#> The value of the test statistic is: 0.0432 
#>