Nothing
# Finds the trace of a _SQUARE_ matrix
.Trace <- function(m)
{
if ( !is.matrix(m) || (dim(m)[1] != dim(m)[2]) ) stop("m must be a square matrix")
return( sum(diag(m)) )
}
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.