1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
\name{cajolst}
\alias{cajolst}
\encoding{latin1}
\title{Testing Cointegrating Rank with Level Shift at Unknown time}
\description{
The function \code{cajolst} implements the procedure by Luetkepohl
\emph{et al.} to test for the cointegration rank of a VAR process with
a level shift at an unknown time.
}
\usage{
cajolst(x, trend = TRUE, K = 2, season = NULL)
}
\arguments{
\item{x}{Data matrix to be investigated for cointegration.}
\item{trend}{A linear trend is included in the auxiliary regressions
for data adjustment (default is \code{TRUE}).}
\item{K}{The lag order of the series (levels) in the VAR, must be at
least equal to \eqn{K = 2}.}
\item{season}{If seasonal dummies should be included, the data
frequency must be set accordingly, \emph{i.e} \sQuote{4} for quarterly data.}
}
\details{
Note, that the slot \code{"x"} of the returned object contains the
adjusted data series, that is, a matrix adjusted for the temptative
break point, and if applicable, a linear trend and/or seasonal
effects. The VECM is then estimated and tested for cointegration rank
subject to the adjusted matrix. The break point is contained in the
slot \code{"bp"}. Please note, that the \emph{transitory} VECM
specification is estimated and that only the trace test is
available. The critical values are taken from Trenkler, Carsten (2003).
}
\value{
Returns an object of class \code{ca.jo}.
}
\references{
L\"utkepohl, H., Saikkonen, P. and Trenkler, C. (2004), Testing for the
Cointegrating Rank of a VAR Process with Level Shift at Unknown Time,
\emph{Econometrica}, \bold{Vol. 72, No. 2}, 647--662.
Trenkler, Carsten (2003), A new set of critical values for systems
cointegration tests with a prior adjustment for deterministic terms,
\emph{Economics Bulletin}, \bold{Vol. 3, No. 11}, 1--9.
}
\seealso{
\code{\link{plotres}}, \code{\link{alrtest}}, \code{\link{ablrtest}},
\code{\link{blrtest}}, \code{\link{ca.jo}}, \code{\link{cajools}},
\code{\link{lttest}}, \code{\link{ca.jo-class}} and \code{\link{urca-class}}.
}
\examples{
data(denmark)
sjd <- denmark[, c("LRM", "LRY", "IBO", "IDE")]
sjd.lst <- cajolst(sjd, trend=TRUE, K=2, season=4)
summary(sjd.lst)
}
\author{Bernhard Pfaff}
\keyword{regression}
|