R/trace.R

trace <-
function(X)
{
    out <- sum(diag(X))    
    return(out)
}
SAcmu/LLSM documentation built on May 9, 2019, 11:06 a.m.