M1Germany

0th

Percentile

German M1 Money Demand

German M1 money demand.

Keywords
datasets
Usage
data(M1Germany)
Details

This is essentially the same data set as GermanM1, the important difference is that it is stored as a zoo series and not as a data frame. It does not contain differenced and lagged versions of the variables (as GermanM1) does, because these do not have to be computed explicitly before applying dynlm.

The (short) story behind the data is the following (for more detailed information see GermanM1): L<U+34AE5C2F>hl et al. (1999) investigate the linearity and stability of German M1 money demand: they find a stable regression relation for the time before the monetary union on 1990-06-01 but a clear structural instability afterwards. Zeileis et al. (2005) re-analyze this data set in a monitoring situation.

Format

M1Germany is a "zoo" series containing 4 quarterly time series from 1960(1) to 1996(3).

logm1

logarithm of real M1 per capita,

logprice

logarithm of a price index,

loggnp

logarithm of real per capita gross national product,

interest

long-run interest rate,

References

L<U+34AE5C2F>hl H., Ter<e4>svirta T., Wolters J. (1999), Investigating Stability and Linearity of a German M1 Money Demand Function, Journal of Applied Econometrics, 14, 511--525.

Zeileis A., Leisch F., Kleiber C., Hornik K. (2005), Monitoring Structural Change in Dynamic Econometric Models, Journal of Applied Econometrics, 20, 99--121.

See Also

GermanM1

Aliases
  • M1Germany
Examples
# NOT RUN {
data("M1Germany")
## fit the model of Luetkepohl et al. (1999) on the history period
## before the monetary unification 
histfm <- dynlm(d(logm1) ~ d(L(loggnp, 2)) + d(interest) + d(L(interest)) + d(logprice) +
                           L(logm1) + L(loggnp) + L(interest) +
                           season(logm1, ref = 4),
                data = M1Germany, start = c(1961, 1), end = c(1990, 2))

## fit on extended sample period
fm <- update(histfm, end = c(1995, 4))

if(require("strucchange")) {
  scus <- gefp(fm, fit = NULL)
  plot(scus, functional = supLM(0.1))
}
# }
Documentation reproduced from package dynlm, version 0.3-6, License: GPL-2 | GPL-3

Community examples

Looks like there are no examples yet.