Nothing
"year.strict" <- function(...)
stop("you must expand 2-digit year abbreviations")
"year.expand" <-
function(y, cut.off = 69, century = c(1900, 2000), ...)
{
## cut.off specifies year for rounding up/down
if(!is.numeric(y))
stop("must be a numeric year specification")
i <- (!is.na(y) & (y >= 0) & (y <= 99))
if(any(i))
y[i] <- ifelse(y[i] < cut.off,
y[i] + century[2],
y[i] + century[1])
y
}
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.