getTrace <- function(m) { #++ # Returns the trace of the matrix m. return (sum(m[col(m) == row(m)])) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.