R/nber.R

In tis: Time Indexes and Time Indexed Series

nberShade <- function(...) UseMethod("nberShade")
nberShade.default <- function(...) ymdShade(ymds = nberDates(), ...)

romerLines <- function(){
  xrange <- par("usr")[1:2]
  rDates <- c(1947.75, 1955.6667, 1968.91667, 
              1974.25, 1978.5833, 1979.75, 1988.91667)
  rDates <- rDates[ rDates >= xrange[1] & rDates <= xrange[2]]
  abline(v = rDates, lty = 4)
}


nberDates <- function(){
  matrix(ncol = 2,
         dimnames = list(character(0), c("Start", "End")),
         byrow = TRUE,
         data =
         c(18570701, 18581231, 
           18601101, 18610630, 
           18650501, 18671231, 
           18690701, 18701231, 
           18731101, 18790331, 
           18820401, 18850531, 
           18870401, 18880430, 
           18900801, 18910531, 
           18930201, 18940630, 
           18960101, 18970630, 
           18990701, 19001231, 
           19021001, 19040831, 
           19070601, 19080630, 
           19100201, 19120131, 
           19130201, 19141231, 
           19180901, 19190331, 
           19200201, 19210731, 
           19230601, 19240731, 
           19261101, 19271130, 
           19290901, 19330331, 
           19370601, 19380630, 
           19450301, 19451031, 
           19481201, 19491031, 
           19530801, 19540531, 
           19570901, 19580430, 
           19600501, 19610228, 
           19700101, 19701130, 
           19731201, 19750331, 
           19800201, 19800731, 
           19810801, 19821130, 
           19900801, 19910331, 
           20010401, 20011130,
           20080101, 20090630,
           20200101, 20200430))
}