Nothing
getMargins <-
function(x){
if( !is.array(x) ){ warning(paste0(sQuote("x"), " must be matrix or array")) }
return(lapply(1:length(dim(x)), function(v){ apply(x,v,sum) }))
}
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.