R/sigma12.r

sigma12 <- function (sigma) {
    temp <- eigen(sigma)
    sigma12 <- temp$vectors %*% diag(temp$values^0.5) %*% t(temp$vectors)
    sigma12
}

Try the rlme package in your browser

Any scripts or data that you put into this service are public.

rlme documentation built on May 2, 2019, 3:47 p.m.