R/tr.R

In tpepler/theolib: Collection of Auxiliary Functions

Defines functions tr

Documented in tr

tr<-function(X)
{
  # Calculates the trace of p x p matrix X

  return(sum(diag(X)))
}