Nothing
matArrays <-
function (lis, na.rm = FALSE) {
M <- length(lis)
dims <- dim(lis[[1]])
mat <- unlist(lis)
dim(mat) <- c(length(mat)/M, M)
array(rowMeans(mat), dims)
}
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.