Nothing
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))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.