Nothing
flatten <-
function(x) {
nom <- dimnames(x)
dimnames(x) <- NULL
n <- dim(x)
dim(x) <- c(n[1], n[2] * n[3])
x
}
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.