R/sigma12i.r

Defines functions sigma12i

sigma12i <- function(sigma) {
    temp <- eigen(sigma, symmetric = T)
    sigma12i <- temp$vectors %*% diag(1/temp$values^0.5) %*% 
        t(temp$vectors)
    sigma12i
}
herbps10/rlme documentation built on Nov. 25, 2022, 1:38 p.m.