R/sigma12inv.R

sigma12inv <-
function (sigma) 
{
    temp <- eigen(sigma, symmetric = TRUE)
    sigma12 <- temp$vectors %*% diag(temp$values^(-0.5)) %*% 
        t(temp$vectors)
    sigma12
}
kloke/rbgee documentation built on May 20, 2019, 12:34 p.m.