R/I_Trace.R

Defines functions .Trace

# 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)) )
}

Try the esaddle package in your browser

Any scripts or data that you put into this service are public.

esaddle documentation built on April 26, 2021, 5:06 p.m.