StrikeDuration {AER} | R Documentation |
Data on the duration of strikes in US manufacturing industries, 1968–1976.
data("StrikeDuration")
A data frame containing 62 observations on 2 variables for the period 1968–1976.
The original data provided by Kennan (1985) are on a monthly basis, while Greene (2003) only provides the June data for each year. Also, the duration for observation 36 is given as 3 by Greene while Kennan has 2. Here we use Greene's version.
Online complements to Greene (2003).
http://pages.stern.nyu.edu/~wgreene/Text/tables/tablelist5.htm
Greene, W.H. (2003). Econometric Analysis, 5th edition. Upper Saddle River, NJ: Prentice Hall.
Kennan, J. (1985). The Duration of Contract Strikes in US Manufacturing. Journal of Econometrics, 28, 5–28.
data("StrikeDuration") library("MASS") ## Greene (2003), Table 22.10 fit_exp <- fitdistr(StrikeDuration$duration, "exponential") fit_wei <- fitdistr(StrikeDuration$duration, "weibull") fit_wei$estimate[2]^(-1) fit_lnorm <- fitdistr(StrikeDuration$duration, "lognormal") 1/fit_lnorm$estimate[2] exp(-fit_lnorm$estimate[1]) ## Weibull and lognormal distribution have ## different parameterizations, see Greene p. 794 ## Greene (2003), Example 22.10 library("survival") fm_wei <- survreg(Surv(duration) ~ uoutput, dist = "weibull", data = StrikeDuration) summary(fm_wei)