Nothing
arraySelectLast <- function(x, take)
{
DIMS <- dim(x)
nDIMS <- length(DIMS)
COMMAS <- paste(rep(",", nDIMS - 1), collapse = "")
eval(parse(text = paste("x[", COMMAS, "take]", collapse = "")))
}
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.