Nothing
interleave <- function(..., append.source=TRUE, sep=": ", drop=FALSE)
{
sources <- list(...)
sources[sapply(sources, is.null)] <- NULL
sources <- lapply(sources, function(x)
if(is.matrix(x) || is.data.frame(x))
x else t(x))
nrows <- sapply(sources, nrow)
mrows <- max(nrows)
if(any(nrows!=mrows & nrows!=1))
stop("arguments have differing numbers of rows")
sources <- lapply(sources, function(x)
if(nrow(x)==1) x[rep(1,mrows),,drop=drop] else x)
tmp <- do.call("rbind", sources)
nsources <- length(sources)
indexes <- outer((0:(nsources-1)) * mrows, 1:mrows, "+")
retval <- tmp[indexes,,drop=drop]
if(append.source && !is.null(names(sources)))
{
if(!is.null(row.names(tmp)))
{
row.names(retval) <- paste(format(row.names(retval)),
format(names(sources)), sep=sep)
}
else
{
row.names(retval) <- rep(names(sources), mrows)
}
}
retval
}
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.