R/sigma12.r

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