R/tracel22.R

tracel22 <- function(Sigma, Omega) {
  return(sum(diag(  (Sigma%*%Omega -  diag(1,  dim(Omega)[1] ) )^2 )) )
}
qpsy/clime2 documentation built on May 26, 2019, 12:34 p.m.